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BOB STANTON HAD A GREAT IDEA. 
AN HOUR LATER HE WAS TESTING IT. 


Appointments. Everybody 
takes them — dentists, auto- 
body shops, dance instructors. 7. 
And lots of computer applica~ J 
tions need appointment § 
screens. a. 
Bob thought that a calen- F 
dar made a terrific graphic 
metaphor for taking appoint- 
ments. Simply use the arrow 
keys to pick an open date, then 
press the Enter key, and up 
pops an appointment window. 

Lucky for Bob, he’s a 
CLARION programmer, one of 
a fast growing cadre of super-productive application developers. 

With CLARION's Screener utility, he painted a white calendar on a black back- 
ground. Then he drew a white-on-blue track around the page and between the days. 
He typed in the days of the week — and voila! — a calendar! 

CLARION knows that a PC monitor is refreshed from memory, so it treats a 
screen layout like a group of variables. Just move data to a screen variable, and it 
shows up on the monitor. 

Bob set up dimensioned screen variables for the days of the month and a screen 
pointer for selecting a date, and he was done. Then Screener generated the code . 

Then Bob drew the appointments window, built an appointment file, filled in the 
connecting code and tested it — ONE HOUR AFTER HE STARTED! 

Testing was a breeze. Screener doesn't just write code, it compiles your source, 
displays a screen, gets the changes, then replaces the old code in your program. 

So here are Bob's appointment screens. You can see the source listing to the right. 
We marked all the code Screener wrote for him. 


WHY CLARION? 

Why are application developers everywhere 
changing to CLARION? 

Because CLARION gives you_all the tools 
you need: a coupled compiler and Editor; screen, 
report, and help generators; an import/export 
utility; a sort/backup/restore utility; a format- 
ted file dump; a DOS shell — and much more. 

Because with CLARION ’s comprehensive 
data management routines, records can be 
locked and files shared on Novell®, 3COM®, 
IBM® PC Net & Token Ring, Multi Link®, and most other networks. 

Because CLARION is not hardware locked or copy protected. Run-time systems 
are free and soon you will be able to translate CLARION into native machine code 
(EXEs). 

An t yet, the price of CLARION v1.1 is just $395 plus shipping and handling. 

ee an IBM PC or true compatible citi 390KB of memory and a hard disk drive. CLARION v1.1 
also comes with a 30-day money back guarantee. 


So call now and order CLARION v1.1. or ask for our _ ® 
detailed 16-page color brochure and reprints of major reviews. 
& 
800 / 3 5 4 5 4 4 4 ¥yom BARRINGTON SYSTEMS, INC. 
Be 


150 EAST SAMPLE ROAD POMPANO BEACH, FLORIDA 33064 305/785-4555 


Copyright 1986 Barrington Systems, Inc. CLARION is a registered trademark of Barrington Systems, Inc. IBM is a registered trademark of International Business Machines Corporation 
Novell is a registered trademark of Novell, Inc. 3COM is a registered trademark of 3COM Corporation Multi Link is a registered trademark of Software Link, Inc. Dept. A9 
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NEW! FROM 
BLAISE 
COMPUTING 


Today’s programmers 
need more than yes- 
terday’s tools. Re- 
quirements such as 
removable windows 
and ‘“‘sidekickable”’ 
pop-up utilities 
are changing 
the face of pro- 
gram design. 
You need to fil- 
ter interrupts so 
that other resi- 


dent programs 
still work. You 
need the ability to switch between 


multiple display pages and monitors. 
Today’s technical demands are almost 
endless, but C TOOLS PLUS gives you 
what you need. 








Be ee a ae 
SOLID LIBRARY SUPPORT 


Blaise Computing offers you solid li- 
brary support that can meet all your 
demands and more. C TOOLS PLUS 
embodies the full spectrum of general- 
purpose utility functions that are criti- 
cal to today’s applications. 


Here’s just part of the PLUS 
in C TOOLS PLUS: 

@ C TOOLS and C TOOLS 2 compatibil- 
ity —two packages that receive rave 
reviews for quality, organization, usa- 
bility and documentation. 


@ FULL SOURCE CODE 


With “C”’ 


@ WINDOWS that are stackable, re- 
movable, that support word wrap and 
that can accept user input. 

@ INTERRUPT SERVICE ROUTINE 
support for truly flexible, robust and 
polite resident applications. 

@ MULTIPLE monitor and display 
support, including EGA 43-line mode. 

@ FAST DIRECT VIDEO ACCESS for 
efficiency that will not constrain good 
program design. 

@ DOCUMENTATION, TECHNICAL 
SUPPORT and attention 
to detail that have distin- 
guished Blaise Computing 
products over the years. 


C TOOLS PLUS supports 
the Microsoft (and IBM) 


(- P % zy Also Available Are: 
C VIEW MANAGER — 
QO A kit for building data 
entry screens and menus. 


For The Programmer 


Whose Alphabet 
Begins & Ends 


Begin by designing on- 
screen what the operator 
will see; call upon our 
library functions from 
your program to display 
the screens and retrieve 
the data. Just $275, in- 
cluding all library 
source code. 

C ASYNCH MAN- 
AGER — provides 
the crucial core 
of hardware in- 
terrupt support 
needed to build 
applications that 
communicate. It 
also includes the “XMODEM” file-transfer 
protocol and support for Hayes-compatible 
modems. All source code is included for $175. 
C TOOLS & C TOOLS 2—an indispensable 
combination still available at a low price of 
$175, including all source code. See re- 
view in PC Tech Journal, 6/85. 


Le ee a 
BLAISE COMPUTING INC. 


2560 Ninth Street, Suite 316 Berkeley, CA 94710 (415) 540-5441 


ORDER TOLL-FREE 800-227-8087! 








yeas dr a eee . 

wes 
3.00 and Lattice 3.00C ae re oe 
compilers and tS just. =€=— ee ee 
$175.00. : yiskor MC # eye 
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BANDWIDTH: Compressing Image Data with 
Quadtrees 

by Ronald G. White 

Ronald describes how a quadtree, a tree data structure that 

can have four child nodes for each node, can be used in a 
recursive scheme for compressing image data. 

BANDWIDTH: ARC Wars: MS-DOS Archiving Utilities 26 
by Russell Nelson 

Archiving (compressing) text files saves disk space and, 

when transferring files between systems, saves time. 

Russell compares and contrasts several ARC programs that 

are available in the MS-DOS world. 


Compressing & 
graphic data 




















Squeezing text 3 



























Fast = BANDWIDTH: Optimizing Integer Multiplications by 34 
eye © Constant Multipliers 
multiplication By ober 2 Grapes! 








A simple and nearly optimal algorithm to speed up that 
time-consuming operation—integer multiplication. 














About the Cover 


Tae ~ e It's easy to reduce the size of a file 
& & u c VI | N S, so you can transmit it more quick- 
ly. The trick is to do it in such a 


way that you can recreate the orig- 
inal file on the other end. 































C CHEST es 
by Allen Holub 

Allen continues the description of his nroff-like text editor, 

nr. In the Flotsam and Jetsam section, he takes Kernighan 

and Ritchie to task for their eccentric definitions of some 
common words. 

16-BIT SOFTWARE TOOLBOX 110 
by Ray Duncan 

It's the usual eclectic collection of fun and useful facts from 

Ray and his readers this month, including sources of 
information on the 80386 and assembly languages, a hint 

about writing adapting I/O routines, and a letter from a 

reader countering Ray’s attacks on high-level languages. 
STRUCTURED PROGRAMMING 120 
by Namir Clemment Shammas 

Namir compares three flavors of BASIC: True BASIC, BASICA, 

and QuickBASIC. 

ARTIFICIAL INTELLIGENCE 126 
by Ernest R. Tello 

Ernie gives us an overview of object-oriented LIsP and talks 
with some LISP mavens about the future of the language. 


What’s wrong S 
withK &R 
















This Issue 
Given a fixed-capacity channel and 
a quantity of information to trans- 
fer, how do you move more infor- 
mation down the channel per unit 
of time than the channel will sup- 
port? That apparently impossible 
challenge is the bandwidth prob- 
lem, a topic that we intend to ad- 
dress in various ways throughout 
1987. The expanded, extended, or 
otherwise enlarged memory space 
of today’s microcomputers, in con- 
junction with the processing 
power of CPUs such as the 80386 
and 68020, only makes the infor- 
mation bottlenecks in computer 
Systems all the more apparent. 
Two solutions to the bandwidth di- 
lemma lead off this issue. 



















80386, > 
assembly, and 
more 
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Next Issue 
In the area of artificial] intelligence, 
expert systems are now old hat. 
The next area of growth in AI must 
be in techniques that allow the 
program to acquire new informa- 
tion—to learn. Our annual AI issue 
will include an implementation of 
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Capacity by Michael Swaine A look at how the “new a classic expert system, but it will 
RUNNING LIGHT 8 | wave’ BASICs support user- also look forward with an example 
by Nick Turner defined libraries. of software that mirrors the struc- 
ARCHIVES 8 OF INTEREST: 142 esis. of the brain and learns by ex- 
LETTERS 10 | New products out ore perience, much as clusters of neu- 
b rons may learn. 

'y you ADVERTISER INDEX: 151 
DDJ ON LINE 136 | Where to find those ads 
SWAINE’S FLAMES 152 ZH bandwidth topic 
by Michael Swaine 
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IS GETTING THE ANSWER TO 
SOFTWARE PROBLEMS 
A BIGGER PROBLEM THAN 
THE PROBLEM? 


Don't stay on hold 
when there's help online 
from CompuServe’ 

Software Forums. 








The new upgraded 
version of 
your software 
locks up. 


anh 


) reboot, 
__-you get stuck in the 
same place in the program. 


You've chucked the manual, 
because you've done exactly what it 
tells you to do six times already. 

So you call the software companly. 


Now you spend half a day beating 
your head against a brick wall of 
busy signals, ranting at recorded 
messages, hanging around on hold. 
And you still don’t get the solution 
to your problem. 


Meanwhile, progress is stopped 
and your profits are 
dribbling away. But 
wait. There’s help... 


Several prom- 
inent, progressive 
software publishers 
recognize this 
problem, and fox 
working with Compuserve, 
have developed a solution— 
CompuServe Software Forums. 


Now you can go online with 
experts from the companies that 
produced your software and get 





prompt, written answers to your 
specific problems. You can 
even talk with the actual 
\ software 
, developers. 


frequently publish software reviews. 
And you can find help for many 
other software products in our other 
computer-related forums for IBM‘ 
Tandy, Atari? Apple; Commodore; 
TI’ and others. 


The last thing you 
| need when you've got 
Pv a software problem 






















getting answers. 
So, from now 
on, get ones 
prompt, 
informed = | 
answers on , 
CompuServe Software Forums. 


Adobe Systems, Aldus, Ashton- 
Tate, Autodesk’ Borland Interna- 
tional® Creative Solutions; Digital 
Research® Living Videotext; Lotus” 
Inc., Microsoft? MicroPro, Misosys 
Inc’ and Software Publishing” all 
have CompuServe Software Forums. 







And we keep To buy your CompuServe 
adding Subscription Kit, see your nearest 
more. computer dealer. Suggested retail 


price is $39.95. 


To order direct 
or for more 
information, 

call 800-848-8199 
(nOhio,614- 
457-0802). oo 














CompuServe's large subscriber If you're 
base also puts you in touch with already a 
thousands of other, often more expe- CompusServe 
rienced, users of the same software. subscriber, _ 


just type 
GO SOFTWARE 
at any ! prompt. 


You'll find they can give you lots 
of creative ways to get the most out 
of your software. 


And software forums are the best es ee 
way to learn about product updates, ees 
new product announcements, new 
ways to expand the uses of your soft- CompuServe 
ware, and offer free uploads of your 

information Services, P.O. Box 20212 
5000 Arlington Centre Bivd., Columbus, OH 43220 


own programs. 
Our online electronic magazines An H&R Block Company 
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Btrieve. 


The Programmer's 


W 


hen you're serious about application | 
development, there's just one choice for file 





“near mainframe functionality’, Btrieve sets the file 


management standard for PC applications. With Btrieve 


loaded in your PC, your programs can use simple 
subroutine calls to retrieve, store and update records. 


management: Btrieve. With what Computer Language calls 







Choice. 







Multi-user versions for | 
LANs and Xenix. When your 
applications need to network, count on 
Btrieve. A single version runs on all DOS 3 
LANs, including IBM PC Network and Novell Advanced 

Netware. Btrieve is also available for Xenix and 
multitasking operating systems such as MultiLink 


- 5) Advanced, Microsoft Windows and IBM Topview. 







B-tree 
based for high 
performance. Performance 
is all-important, especially as 
your database grows. That's 
why Btrieve implements the 
b-tree file structure—the 
fastest, most efficient method 
of accessing data. 

interfaces available. 






, Help is 
just a phone 
call away. 
Need technical 
support? You've got it! 
Btrieve users receive 30 days 
of unlimited phone support at no charge. This 
“Direct Connect” policy is renewable for a full 


year at low cost. And try SoftCraft’s free 
bulletin board for technical tips, seven days a week. 


Fault tolerant. Btrieve 
insures against database dis- 
asters. Two levels of fault 
tolerance guarantee data 
integrity during accidents or 
power failures—even if 
lightning strikes. No extra 
programming required. 
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Interfaces to C, BASIC, Pascal, 
COBOL. Don't waste time “Sac 
programming in awkward fourth generation 
languages! With Btrieve, simply use the languages 
you know best—and write applications the right 
way. Over 15 language 






P.O. Box 9802 #917 Austin, Texas 78766 


$595 (for report generation, add $145 for single-user and $345 for multi-user). Availabl 


trademark and Xtrieve is a trademark of SoftCraft Inc. 


Built-in security 

features. Lock up sensitive 

data with Btrieve's password protection and 
unique data encryption scheme—especially 
useful in local area networks. 


Srnec nen tinea ernest 
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Thorough documentation, easy implementation. 


Getting 
started with Btrieve is easy: the manual is packed with examples of 
every Btrieve function in BASIC, Pascal, COBOL and C. 


Database queries, report writing. Add Xtrieve™ to your Btrieve 
applications for a fully-relational DBMS. Xtrieve’s menu-driven 
interface gives your users the on-line query capabilities they 

need—without programming. Add | 
our report writer option to produce 
custom reports and forms. 









Leela e 


No royalties. 
Need we say more? 












SoffCraft 


(512) 346-8380 Telex 358 200 


Suggested retail prices: Btrieve, $245; multi-user Btrieve, $595; Xtrieve, $245; multi-user Xtrieve, 


e from SoftCraft 
is a registered 
‘From Computer Language, November 1985. 


and selected distributors. Requires PC-DOS or MS-DOS 2.X, 3.X, Xenix. Btrieve 








EDITORIAL 


E ooking back, I can 


see that it was 

shortly after I started 
commuting from San- 
ta Cruz into Silicon Val- 
ley that I began to see 
the importance of the 
bandwidth problem. 
Squeezing in with 
thousands of other 
commuters through 
the mountain pass to oo 
fight my way across Silicon Valley 
and up crowded Highway 101 got me 
thinking about channel capacity. 

There are interesting similarities 
and relationships between transpor- 
tation bottlenecks and the informa- 
tion-transmission bottlenecks that I 
believe represent the greatest chal- 
lenge for programmers in the next 
decade. Just as data can be organized 
into packets, commuters can be 
packed up in trains or car pools to 
increase their transmission rate and 
decrease the frequency of collisions. 
The vehicular capacity of a highway 
really is a form of channel band- 
width. And anyone who has fallen 
into a web of one-way streets such as 
Berkeley's has something to say 
about network topology. 

Relationships between transporta- 
tion and communication are impor- 
tant when you consider trading one 
off against the other. At DDJ we have 
been, in a limited way, exploring the 
benefits of telecommuting. (I'm refer- 
ring to the exchange of the costly 
movement of bodies for the lower- 
cost transmission of bits—not driving 
with a telephone at your ear, which 
so many of my fellow commuters are 
doing and which could also be called 
telecommuting.) I’m skeptical about 
how closely people can work togeth- 
er at physical long distance, but I'm 
willing to experiment because the 
cost of transportation, particularly 
the cost in time, is so great. 

That cost will not go down, the 
world’s transportation bottlenecks 
are only going to get worse, and there 











is little to indicate that 
anyone is thinking 
very hard about what 
technological fixes 
there may be. 


It would seem that 
we are closer to solu- 
tions to communica- 
tions bottlenecks: we 
have seen the develop- 
ment of communica- 
tions satellites, com- 
puter networks, and sophisticated 
routing software for voice and data. 
The picture phones of science fiction 
exist today. (See Swaine’s Flames, 
page 152.) 

In contrast, science fiction’s visions 
of future transportation are further 
from realization. I did recently drive 
a car equipped with an impressive 
computerized navigation system 
from Etak Inc., of Menlo Park, but in- 
novation like this in the area of con- 
sumer transportation is rare. Cars are 
still cars, highways are still high- 
ways, and traffic is still a battle- 
ground of a thousand conflicting de- 
sires. Maybe society can no longer 
afford the luxury of our current driv- 
ing habits in constricted channels 
like Highway 101, and cars and high- 
ways should be modified to permit 
centralized control and routing. It's 
not such a radically ambitious notion, 
given the context of Star Wars, and 
it’s a lot more down-to-earth. 

This little peninsula with its run- 
away population growth and its 
wealth of technical expertise seems 
like the ideal place for the experi- 
ment to begin. 
Staccato signals of constant 
information. . . - 
These are the days of miracle and 
wonder 
This is the long distance call 
—Paul Simon = 

c 

Whaat Surrme 
Michael Swaine 

editor-in-chief 
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Our thanks to NASA for supplying this computer enhanced ultraviolet photo taken by Skylab IV of asolar prominence reaching out 350,000 miles above the sun’s surface 





Genius Begins With A Great Idea... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and alittle bit 
more genius. 


Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System . .. .$199 
¢ optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options ¢ Manx Aztec 8086/80x86 macro assembler 
¢ Aztec overlay linker (large/small model) © source 
level debugger ¢ object librarian © 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
¢ includes all of Aztec C86-p ¢ Unix utilities make, 
diff, grep ¢ vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System. .... $499 
* includes all of Aztec C86-d * Source for library rou- 
tines ¢ ROM Support * CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 

A large array of support software is available for 
Aztec C86. Call or write for information. The following 
is a list of the most requested products: Essential 
Graphics ¢ C Essentials * C Utility Library ¢ Green- 
leaf Com. ¢ Greenleaf General ¢ Halo ¢ Panel ¢ PC- 
lint ¢ PforCe ¢ Pre-C * Windows for C ¢ Windows for 
Data C terp db Vista * Phact ¢ Plink86Plus  C-tree. 





C compiler, 8080/Z80 assembler, linker, librarian, 
UNIX libraries, and specialized utilities. 


Aztec C Il-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80).............. $199 
Aztec C80 (TRS-80 3&4)............ $199 








Manx Software Systems 
, Eatontown, NJ 07724 


Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional 
A price/feature/performance miracle. System in- 
cludes: optimized C ¢ 68000/680x0 assembler « 
68881 support © overlay linker ¢ UNIX and Amiga 
libraries ¢ examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p « the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
* optimized C * 68000/680x0 assembler © 68881 
support ® overlay linker © UNIX and Macintosh li- 
braries ¢ examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





Aztec C65 is the only commercial quality C com- 
piler for the Apple Il. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 


braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
* runs under ProDOS code for ProDOS or DOS 3.3 
Aztec C65-d Developer............. $199 


¢ runs under DOS 3.3 e code for DOS 3.3 





An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ................ $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


COPING Toe, ho as $75 





Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


a 


To become a user call 800-221-0440. From Nu or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.O.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


MS is a registered TM of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer Systems, Ltd., 
PHACT TM PHACT Assoc., PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 
ware, C-tree TM Faircom, Inc., Windows for C, Windows for DATA TM Creative Solutions, Apple II, Macintosh TM Apple, Inc., TRS-80 TM 
Radio Shack, Amiga TM Commodore Int'l., Unix TM AT&T, Vax TM DEC. Aztec TM Manx Software Systems. 
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S&S everal companies 
are feverishly 
(and secretly) working 
on new chips called 
“neural networks.” 
These chips are de- 
signed to emulate vari- 
ous functions of the 
human brain. They 
contain thousands of 
standard microcircuit | 
elements organized in 
a distinctly nonstandard way—hun- 
dreds of simulated neurons, each one 
of which is an always-active compo- 
nent capable of making simple deci- 
sions. Each ‘‘neuron’”’ is connected by 
‘synapses’ to up to several hundred 
other neurons and can change its 
own activation potentials in response 
to signals it receives. 

This could be the most important 
new invention in cybernetics since 
the Turing machine. Why? Because 
neural networks function in much 
the same way as your own brain (and 
mine, I think). Once they surpass a 
certain threshold of complexity, neu- 
ral networks (whether they are actu- 
ally implemented in hardware or 
simulated on traditional machines) 
begin to exhibit some interesting 
properties. Depending on their pre- 
cise organization, they can act as 
spectacularly efficient pattern recog- 
nizers, solvers of multiple simulta- 
neous equations (and other complex 
mathematical problems), learning 
machines that actually reach their 
own conclusions about the knowl- 
edge presented, and sophisticated de- 
vice controllers—in short, all the 
functions that are currently per- 
formed by neural networks in your 
own body. A properly designed 
hardware neural network, for exam- 
ple, could easily provide a good solu- 
tion to a 30-city traveling salesman 
problem in just a few (very few) mi- 
croseconds. It’s not guaranteed to be 
the best solution, but it will be ex- 
tremely good. And the solution 
would be reached before a tradition- 





al computer had even 
initialized its variables. 
Watch these pages for 
more about this excit- 
ing new field. 


This issue marks the 
introduction of a new 
theme for DDJ. As the 

speed and storage of 
| computers increase 
more and more rapid- 


ly, it becomes increasingly important 


to be able to move large quantities of 
information from one computer to 
another. We have advanced fiber-op- 
tic cables and satellite microwave 
links, but we also have an exponen- 
tial growth in the amount of informa- 
tion being sent. The problem is one of 
bandwidth—the capacity of the com- 
munication channels is not growing 
as rapidly as the need. to 
communicate. 

We'll be looking at the bandwidth 
problem from several different per- 
spectives. In this issue Ronald White 
describes graphical quadtrees, a way 
to compress image data, sometimes 
dramatically. We also have a compar- 
ative review of four public-domain 
archiving programs. Archived files 
are files that have been compressed 
through the elimination of redun- 
dant data. Such files can be transmit- 
ted faster over modem lines, and be- 
cause of this, archive programs have 


_ become popular on computer bulle- 


tin-board systems. 


Do you have a project that excites 
you? Would you like to write about it 
for DDJ? Your first step is to give us a 
call at (415) 366-3600 and ask for a 
copy of the writers’ guidelines. This 
wondrous document contains care- 
fully refined advice that is intended 
to help you get published. 


WAI 


Nick Turner 
editor 
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: “The 6th West Coast Gade: is 
‘over. (sigh of relief and aching feet). Direc- 
_ tor Jim Warrer ller skates have been 
| r another year, or at least until 
his rumo ed mini-faires get under way. 
This — ’s was even ee man 
expected . . 
“Perhaps the biggest surprise to com- 
mercial concerns was the profile of the ‘av- 
_ erage’ attendee. All the sales people had 
been coached well in advance on how to 
_ spill fortha technical-sounding pitch; none 
_ seemed able to answer basic questions like, | 
‘Why should I have a computer?’ ‘What — 
can I use it for?’ ‘I don’t know anything 
about computers—where do I start?’ 
Would-be consumers wandered from 
booth to booth in search of someone who 
_ could still remember how to speak their 
lingo and give a down-to-earth ot me 
ee one DDI, June 1981. 
















































“PAIRE CONSUMES EDITOR Dos LATE, 

“What more can we say? DDJ’s entrepid 
editor involved himself as chairperson of 
the First West Coast Computer Faire and 
discovered it to be an infinite sink of time. 
And he was spread much too thin before 
he started. Xeroxing editors fAued.- 


“From time to time, over the past twenty 
years or so, there have been predictions that 
we will soon have inexpensive mass storage 
devices capable of holding the entire Li- 
brary of Congress in a $19 desk-top unit. 
These chimerical devices are usually based 
on some far-out technology involving pro- 
ton resonance, magnetic bubbles, or holo- 
grams. Well, I’m still waiting patiently for — 
such a device to materialize but I’m not 
holding my breath.’’—Jim Day, DDJ, March 
taf: 








Dr. Doses 


Running Light Without Overbyte 


Dr. Dobb’s Journal, March 1987 





A Challenge to Microsoft C... 


We challenge Microsoft C (Ver 4.0) to a C compiler duel to the finish, measuring compile, link, 
we will stop advertising for two months. 


and execution times. If they win, 


by Roy Sherrill 


If Microsoft C (Ver 4.0) can beat 
Optimum-C then we will stop advertis- 
ing in all magazines for two full months 
and, win or lose, we will publish the 
results in its entirety. Even the Micro- 
soft ads say ‘““The Fastest C you’ve ever 
seen,’ so let the challenge begin. 


Walter says Optimum-C is better 


It all started when Walter Bright, the 
developer of Optimum-C, was explaining his 
new global optimizing C compiler and how 
it’s code would be faster than Microsoft C 
(Ver. 4.0). Walter and I were frustrated 
because here we had a C compiler that would 
beat Microsoft C on 7 out of 10 benchmarks 
and also compile and link faster; yet our mar- 
keting consultant, Mark Astengo, told us that 
Microsoft C had a lock on the C compiler 
market and by 1990 they would probably have 
an 807% market share. Then Mark said, “Roy, 
if your C compiler is as fast as you say it is, 
why not challenge Microsoft C to a duel? If 
Microsoft wins, Datalight should stop adver- 
tising for two months and print the results of 
the test, win or lose.” Well, I’ve always been 
one for a challenge. So here it is... 


We only ask the following... 


The benchmark suite will consist of the set 
of programs that Microsoft supplied to 
Computer Language for their February 1987 C 
compiler review issue. Microsoft will make 
available the programs to Datalight at least 
two weeks prior to the benchmarking. The 
benchmarking will be between Microsoft C 
4.0 and Optimum-C. It will occur at a mutu- 
ally agreed upon time and place. Interested 
individuals will be allowed to attend. The 
benchmarks will be compiled and run on a 
standard IBM PC-AT. 

There will be two separate tests for each 
program: compile and link speed, and execu- 
tion speed. For each test, a representative 
from each company will set up the compiler 
so that it performs at its best. 

The benchmarks will be adjusted so that 
they take sufficiently long to run, that the 
tolerance involved in timing them is insig- 
nificant. The winner is determined by the 
compiler with the faster execution times for 
the majority ofthe benchmarks. We'd like an 
answer from Microsoft no later than April 1, 


1987. 


So what’s a global optimizer? 


A global optimizer looks at an entire 
function at once, analyzing and optimizing 
the whole function. A technique called data 
flow analysis is used by Optimum-C to gather 
information about each function. This en- 
ables your compute-bound programs to exe- 
cute as much as 30% faster after global 
optimization. But, there is one catch.. .because 
the global optimizer ruthlessly searches for 





ways to speed-up execution speed and mini- 
mize memory usage, it has relatively slow 
compile times. No need to worry, though, 
because you can merely turn the global opti- 
mizer off. In fact, you can select all, none, or 
partial of the following optimizations: con- 
stant propagation, copy propagation, dead 
assignment elimination, dead variable elimi- 
nation, dead code elimination, do register 
optimizations, global common subexpression 
elimination, loop invariant removal, loop 
induction variables, optimize for space, 
optimize for time, very busy expressions. 


Choose from five memory models 


Speed your programs by selecting the mem- 
ory model that best suits your application. 


Memory Models 


Model Code Data 
Compact 64k total code & data 
Small 64k 64k 
Program 1M 64k 
Data 64k 1M 
Large 1M 1M 


Compiling, one step... 


Now with the one step DLC program you 
can create .OBJ, EXE and .COM files. Also, 
DLC can handle multiple files and run MASM 
on your assembly files. 


Try Optimum-C risk free 


Try Optimum-C for 30 days and if you are 
not 100% satisfied return it for a full refund. 
Also, for a limited time we are including a 
“free C tutorial which is a combination 
workbook and floppy disk to help lead you 
through the C language with tutorials, 
quizzes, and program exercises. 

O.K. Microsoft, it’s up to you. We’ve put 
two months of advertising on the line that says 
you can’t beat Optimum-C to a real test. Your 
answer, please? 


PRICES 
Developer’s Kit 
Optimum-C 
(includes library source code) 


still only $99 
$139 


Add $5 for shipping in US/$15 outside US 


COD (add $2.50) 
Not Copy Protected 


ie. = 
ee : ee J 
os — - 


ORDER TOLL-FREE TODAY! 


1-800-221-6630 





Microsoft and MS-DOS are registered trademarks 
of the Microsoft Corporation. 


Circle no. 203 on reader service card. 


Magazine Reviewers Shocked by 
DATALIGHT’s Performance... 


‘Reviewing this compiler was quite a surprise 
for us. For such a low price, we were expecting 
a “lightweight” compiler. What we got was 
a package that is as good as or better than 
most of the “‘heavyweights.”’ Datalight C 
implements a complete C language. It also 
compiles quickly, doesn’t take up much disk 
space, and looks impressive in the 
benchmarks.” 


DR. DOBBS, August 1986 


‘This is a sharp compiler!... what is impres- 
sive is that Datalight not only stole the com- 
pile time show completely, but had the fastest 
Fibonacci executable time and had excellent 
object file sizes to boot!” 


COMPUTER LANGUAGE, February 1986 






Optimum-C Version 3.0 


Full UNIX System 5 C language plus 
ANSI extensions 

Fast/tight code via powerful optimizations 
including common sub-expression 
elimination 

DLC one-step compile/link program 
Multiple memory model support 

UNIX compatible library with PC functions 
Compatible with DOS linker and assembler 
Third-party library support 

Automatic generation of COM files 
Supports DOS pathnames, wild cards, 
and Input/Output redirection 
Compatible with Lattice C version 2.x 
Interrupt handling in C 

Debugger support 

ROMable code support/start-up source 


MS-DOS® Support Features 
Mouse support 
Sound support 
Fast screen I/O 
Interrupt handler 


MAKE Maintenance Utility 


Macro definition support 
MS-DOS internal commands 
Inference rule support 
TOUCH date manager 


Tools in Source Code 
cat—UNIX style “type” 
diff—Text file differences 
fgrep—fast text search 
pr—Page printer 
pwd—Print working directory 
wc—Word count 


Sd 
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Datalight 


Box 82441 
Kenmore, Washington 98028 
(206) 367-1803 


*Limited offer available exclusively to readers who 
purchase directly from Datalight. 
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Programming Ethics 
Dear DDJ, 

I've just read Allen Holub’s December 
Viewpoint and was pleased to see 
him make his position known to the 
world. It’s not an easy thing to do. I’m 
sure he'll receive letters criticizing 
his position. 

On that note, allow me to introduce 
PeaceNet, an international computer 
network dedicated to improving 
communication between people 
worldwide on the issues of peace. 
PeaceNet is in need of programmer 
support, and anything readers can 
do, either directly or indirectly, 
would be helpful. PeaceNet is run- 
ning on a Unix system (a Plexus P-60 
[68000-based] to be exact) and is acces- 
sible through Telenet and via 
direct dial (Palo Alto, Califor- 
nia). 

In December, PeaceNet had 
more than 700 users and was 
gaining more than 100 per 
month. We have conferences 
on many important issues as 
well as ‘action alerts” and ac- 
tivity calendars. Readers inter- 
ested in finding out more 
should call (415) 486-0624. 

Corwin Nichols 

223 Forest Ave. 

Palo Alto, CA 94301 


Dear DDJ, 

I am responding to Allen Ho- 
lub’s Viewpoint in DDJ, De- 
cember 1986. First, let me say, 
“bravo, Allen’; then let me 
say, ‘I disagree.” 

I say bravo because Allen 
states that he has examined 
the issues of working on de- 
fense contracts and that he 
feels he cannot live with his 
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conscience if he performs this kind of 
work. He also states that ‘‘there are 
people who have thought about these 
issues and have come to the opposite 
conclusion.” Iam one of these people, 
hence I disagree. He feels these people 
are wrong but that they are acting ac- 
cording to their beliefs in working on 
defense projects. He says he has his 
problem with people who refuse to 
look at the issues and work on defense 
projects anyway. I agree. 

Iam one of the people who has ex- 
amined the issues and feels that de- 
fense work is a necessary activity in 
this world today. Although I wish 
that we were living in that time 
when “‘they shall beat their swords 
into plowshares, and their spears 
into pruning hooks: nation shall not 
lift up sword against nation, neither 
shall they learn war anymore” (Isa- 
iah 2:4), we have Armageddon to face 
between here and there. I agree that 
defense work is a grave-digging activ- 
ity: the enemy's grave. Not to engage 
in defense is a grave-digging lack of 
activity: our own grave. I cannot 
think of abstinence from defense 
work as other than suicide. 


Robert J. Brown, Ill 
Elijah Laboratories International 













5150 W. Copans Rd., #1135 
Margate, FL 33063 


Dear DDJ, 

After reading Mr. Holub’s article in 
the December issue of DDJ, I felt I 
could not remain silent. I must dis- 
agree with Mr. Holub’s opinions 
about nuclear weapons and whether 
or not an engineer could change this. 

Assume just for the moment that 
all engineers agreed with him. Then 
what? Do we want a nonengineer 
cobbling together our weapons? 
Would that make us feel safer? 

He said that if we didn’t design 
them, they wouldn't exist. If all the 
ethical engineers in this country 
were to walk out on their defense 
contracts, do you know who would 
fill in for them? The unethical 
engineers. 

lagree that we shouldn't sit around 
and wait for the bombs to be 
dropped. All of us, independent of 
our profession, should be much more 
politically aware—aware of the is- 
sues, who we vote for, and what we 
can do. That is the tack we need to 
follow as humans, not as engineers, 
to make the world a better, safer 
place to live. 

I had a course in engineer- 
ing ethics as well as an ad- 
vanced philosophy course on 
ethics. I agree that these 
courses should be required of 
all engineering majors. The 
“tools” that you gain from 
these courses are just as im- 
portant as everything else an 
engineer must learn. 

Dave Podolske 

University of Wisconsin 


Dear DDJ, 

Thanks to Allen Holub for 
writing his article about his 
personal decision not to work 
on weapons. | am gladdened 
whenever someone of his 
technical prowess speaks up 
on this issue. 

He was brave to write it, 
and you were brave to print 
it. 

You might tell your readers 
that there is an organization, 
Computer Professionals for 


Dr. Dobb’s Journal, March 1987 


Feel the power 
of VAX/VMS 
for a lot less... 


PCV MS. 





If you’ve written applications software on a VAX computer 
system, you already know about the power and flexibility of 
DEC’s VMS operating system. Now, PCVMS puts the features of 
VAX/VMS on the IBM PC. 

Designed specifically for applications programmers, PCVMS is 
a true multitasking, multiuser operating system that supports the 
most popular programming languages with resources you won't 
find in any other system for the same price. As powerful as it is 
easy to use, PCVMS offers a rich set of commands with easy-to- 
remember names like ALLOCATE, ASSIGN, COPY and DELETE. 
Like VAX/VMS it has a HELP command, which provides on-line 
documentation about commands, services and other topics. It 
also has built-in command prompting, so if you don’t give all the 
information required for a command, the system will prompt 
you for the information you left out. 

In addition to its powerful command set, PCVMS has over 80 
system services, including enhanced system services that can be 
called from high level languages like BASIC, Fortran, Pascal, and 
C, as well as from assembly language. Using these enhanced 
services, you can create multiuser database, spreadsheet, and 
word processing programs that take full advantage of VAX/VMS 
-system services. At the same time, PCVMS gives you multilevel 
protection that prevents services called by one process from 
inadvertently affecting or destroying other processes. 

What it finally comes down to is this: if a VAX computer is out 


of your reach, now you can reach out and grab the power of a 
VAX for your PC with PCVMS. 


PCVMS. From Wendin. Only $99. 


ORDER HOTLINE 


: (509) 624-8088 








K VU SIV7 327 ©. PACIFIC 
SY VILSLAULLILILAS = SPOKANE, WA 99202 (MON.-FRI., 8-5 PACIFIC TIME) 
© Copyright 1987 Wendin, Inc. The people who make quality (a or 
software tools affordable. 





Circle no. 112 on reader service card. 








Ask about our other products 
for the IBM PC and true 
compatibles. 


PCNX™ 


True multitasking, multiuser 
operating system similiar to AT&T's 
popular UNIX® operating system. 


OPERATING SYSTEM 
TOOLBOX™ 


Complete software construction set 
that lets you build your own 
multitasking, multiuser operating 
systems. 


XTC® 


The ultimate programmer’s editor. 
Multitasking macro language plus 
multiple linkable windows and 
buffers. 


All products priced at $99 
with source code included. 


DEALER INQUIRIES WELCOME 


Foreign orders inquire about shipping. 
Domestic orders add $5.00/1st item, $1.00 each 
additional item for shipping, handling, and 
insurance. We accept Visa/MC, American 
Express, COD, and Bank Drafts drawn on 

U.S. Banks. 

Washington residents add 7.8% sales tax. 


MS is a trademark of Microsoft, PC-DOS is a 
trademark of IBM. UNIX is a trademark of AT&T. 
VAX/VMS is a registered trademark of Digital 
Equipment Corporation. 


Wendin and XTC are registered trademarks of 
Wendin, Inc. PCNX, PCVMS, Operating System 
Toolbox, and Personal Operating System are 
trademarks of Wendin, Inc. 
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(continued from page 10) 


Social Responsibility, that deals with 
these issues. Its address is Box 717, 
Palo Alto, CA 94301. Also, the ACM SIG- 
SOFT and SIGAS publish related 
information. 

Kerry Tatlow 

1706 Charles 

Rockford, IL 61108 


Dear DDJ, 
Thank you and congratulations for 
running Allen Holub’s Viewpoint on 
programming ethics. It says a lot for 
DDJ’s position on the forefront of soft- 
ware technology in particular and 
thought in general, regardless of 
where one stands on the guns and 
butter debate. 

Michael Gardner 

Wordtech Systems, Inc. 

P.O. Box 1747 

Orinda, CA 94563 


Dear DDJ, 

I enjoyed reading Allen Holub’s De- 
cember article concerning the 
choices that engineers and program- 
mers make in determining the effect 
of the work that they do upon soci- 
ety. It appears that we are primarily 
concerned with the intellectual chal- 
lenge and financial rewards of our 
technical careers and that we seldom 
think about the effect of our work on 
society as a whole. 

However, I think that the following 
is evidence that people are also con- 
cerned with the moral aspects of their 
work: There is a tendency for techni- 
cal people working in the defense in- 
dustry to be paid more than people 
doing nondefense-related work. A 
large part of the reason for the pay 
discrepancy is that many people just 
don’t want to work on weapons. In 
order to make defense-industry work 
attractive enough to fill the positions, 
employers are forced to pay more 
than the market rate to overcome 
people's natural distaste. 

Eric D. Andresen 

529 Stone Dr. 

Novato, CA 94947 


In Search oi a Sine 

A number of people who responded to 
Richard Campbell’s article “In Search 
of a Sine,” published in the December 
1986 issue, pointed out additional ref- 
erences for transcendental algo- 
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rithms. Following is a list taken from 
the letters.—eds. 


Abramowitz, M. I. A. Stefun ed., 
Handbook of Mathematical Functions 
and Formulas, Graphs and Mathemat- 
ical Tables. National Bureau of Stan- 
dards Applied Math Series, 55, Wash- 
ington, D.C.: U.S. Govt. Printing 
Office, 1964. 

Acton, Foreman S. Numerical Meth- 
ods That Work. New York: Harper & 
Row, 1970. 

Cody, W., and Waite, W. Software 
Manual for the Elementary Functions, 
Englewood Cliffs, N.J.: Prentice-Hall, 
1980. 

Hart, J., et al. Computer Approxima- 
tions. New York: Wiley, 1968. 
Hastings, Cecil, Jr. Approximations 
for Digital Computers. Princeton, N.J.: 
Princeton Univ. Press, 1955. 

Knuth, D. E. Art of Computer Pro- 
gramming, Volume 2: Seminumerical 
Analysis. Reading, Mass.: Addison- 
Wesley, 1969. 


Dear DDJ, 

Regarding the article “In Search of a 
Sine,’ I would like to point out that 
the Taylor’s series expansion, al- 
though of inestimable value in doing 
analytical, theoretical work, is in 
general of little value in computing 
numerical approximations of a func- 
tion and is hardly ever used. There is 
a good reason for this. When expand- 
ing a function into its Taylor's series 
expansion, you choose a reference 
point upon which to anchor the ex- 
pansion and then use the series to ap- 
proximate the function in the vicini- 
ty of this point. If, for example, you 
are interested in approximating sin(x) 
(as Mr. Campbell was), you might 
choose the anchor point x=0 and 
come up with the result: 


sins) =x —X® +X... 
36-5 


or, in expanded form: 


sin(x) = x — 0.166667x? + 0.0083333x° 
+... 


It is evident that this approximation 
produces an exact result at the refer- 
ence point, x=0. 

If, however, you choose the refer- 


ence point x=7/4 radians (45°), the 
resultant series becomes: 


sin(x) = —0.00924739 + 1.04438x 
—.0.0758732x" — O41 7851x? 


This approximation isn’t worth 
beans for x=0 but is exact at the ref- 
erence point—well, exact to within 
the accuracy of the coefficients, as 
represented, anyway. 

The point is this. The Taylor’s se- 
ries approximation of a function— 
any function—is exact at the refer- 
ence point about which it is expand- 
ed but gets worse the farther you get 
from this point. Furthermore, it often 
gets worse fast! To achieve good over- 
all accuracy, you would have to use 
many series, each anchored at an ap- 
propriate point. 

A better way was invented by a 
clever mathematician named Che- 
byschev (sometimes spelled Tchebys- 
chev or variant thereof). Instead of 
approximating a function with a se- 
ries of powers of x, he whipped up 
some nifty polynomials in x (called 
Chebyschev polynomials, what else?) 
and approximated the function with 
a series of these polynomials. Of 
course, all the powers of x in these 
polynomials eventually combine to 
produce something looking very 
much like a Taylor's series, except 
that the coefficients are slightly dif- 
ferent and they have the absolutely 
lovely property of distributing and 
bounding the approximation error 
over the range of the approximation. 
Not only that, the Chebyschev 
scheme produces approximations of 
comparable error to Taylor’s but 
with fewer terms. The process is oft- 
times called Chebyschev economiza- 
tion. Without going into the details of 
why this happens or how to do it 
(which would require a lengthy arti- 
cle in itself), suffice it to say that if you 
expand sin((7/2)x) in terms of Cheby- 
shev polynomials and then simplify 
it, the result is: 


Sin((7/2)x) = 1.5706268x 
— 0.6432292x3 + 0.0727102x° 


I have used the notation Sin() to 
mean an approximation of sin( ). This 
function has a maximum error of 
about 0.0001 over the range —1 < x 
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And some of our well-known customers would be just as 
surprised if they saw themselves in this ad. We don’t splash 
their names all over the place as a matter of professional 
courtesy. 


Let’s face it. Just because someone else uses a product is 
not reason enough to buy it. The clincher is that our 
programs run a documented 40% faster than the closest 
competitor. To complete the picture, our code is up to 
75% smaller due to efficient coding 

and the granularity 
of functions. 


However, should 
‘Irlosity get the best 
of you, call us at 
201-762-6965 and 
we'll drop a few 
highly impressive 
names on you. 


Behind every 
great program is a great library. 


Draw Your Own Conclusions 


When you’re responsible for a project that includes 
advanced graphics, “graphics windowing?’ or character 
font manipulation, Essential Graphics is the clear choice. 
We’ve taken the grind out of graphics programming and 
replaced it with speed and versatility. 


No Royalties, 30 Day Guarantee 


We believe that selling you a programming tool does not 
make us your co-authors. So we don’t charge any royalties 
or run time fees. If within 30 days you don’t find our 
library satisfactory, dump the whole thing and receive a 
complete refund. 





You'd Surprised Who Uses 
Essential Graphics Functions 













Functions At A Glance 
Features: Graphics Adapters: 


e Fastest functions available e IBM Color Graphics 

e Dots, Lines, Circles, Arcs, e IBM Enhanced Graphics 
Pies, Bars e Hercules Graphics 

e Manipulate character fonts e AT&T, Olivetti Graphics 

@ Move blocks, do animation e Tecmar Graphics Master 

e User definable patterns e Others (Call) 

e Seed filling in a boundary Compiler Compatibility: 

e Clipping on screen e Microsoft, C, Fortran, 
coordinates Pascal 

Devices Supported: e Lattice C, Aztec C 

e IBM, Epson, Oki printers e Computer Innovations 

e HP Plotters, HP Laser Jet C86, DeSmet C 

e Microsoft, Logitech Mice ® Wizard C, Mark Williams 








$250.00 


Do Your Homework 
The library you buy can influence the rest of your 
programming life. We encourage you to do some checking 
before making a decision. When you’ve done your home- 
work, you'll choose Essential. Call our support staff of 
experienced C programmers and find out before you buy 
how things will be after your check clears. 


a To order or for support 
call: 201-762-6965 


— For foreign orders contact: 
: England: Gray Matter Tel. (0364) 53499 
Japan: Lifeboat Inc. of Japan Tel: 293 4711 
West Germany: Omnitex Tel. 07623-61820 


Essential Software, Inc. 
PO. Box 1003, Maplewood, New Jersey 07040 


Circle no. 139 on reader service card. 


LETTERS 


(continued from page 12) 


< 1, which covers the entire first and 
fourth quadrants. If you require 
greater accuracy, you can use the 
approximation: 


Sin((z/2)x) = 1.57079631847x 
— 0.64596371106x° 
+ 0.07968967928x5 
— 0.00467376557x’ 
+ 0.00015148419x9 


This approximation is valid over the 
same range and has a maximum er- 
ror, which occurs at several places 
within the range, of about 
0.000000005. 

Another mathematician named 
Padé generated a slick way to do the 
job using the ratio of two polynomi- 
als. I'll say nothing more about this 
technique, except that it works sub- 
limely with certain types of 
functions. 

I would add one last thing in pass- 
ing. You should never evaluate the 
polynomial (for example): 


a + bx + cx? + dx3 


as it stands. You should always ar- 
range it into the nested form: 


(dx + cox +bx+a 


This form requires fewer multiply 
instructions, thereby executing fast- 
er and producing smaller numerical 
errors. 

Charlie Rose 

Ball Aerospace Systems 

P.O. Box 1062 

Boulder, CO 80306 


Dear DDJ, 

The sine routine given by Richard 
Campbell in your December issue 
could be improved. One improve- 
ment would be to compute aa=a*a 
and then compute the sine approxi- 
mation as: 


s = (((C4* aa + C3)* aa + C2)* aa 
+ Cl*a 


using the same coefficients as before. 
This nested form of the polynomial 
accumulates the small terms first and 
thus reduces the errors due to float- 
ing-point rounding. By initially 
squaring a, you end up doing three 
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additions and five multiplications. 

Another improvement would be to 
use a ninth-order polynomial instead 
of a seventh-order one. The sine 
would then be computed as: 


s = (((C5 * aa + C4)* aa + C3)* aa 
+2) "aa Cl) “aa 


where the coefficients are: 


C1 = 1.5707963 

C2 = —0.64596371 
C3 = 0.079689679 
C4 = —0.0046737666 
C5 = 0.00015148513 


The coefficients published in the 
December DDJ can be found on page 
203, item SIN 3340, in Computer Ap- 
proximations (J. Hart et al.), but are 
given to more precision. The coeffi- 
cients for the ninth-order polynomial 
listed above can be found on page 204, 
item SIN 3341, of the same reference. 

A third way to improve the routine 
would be to use the methods outlined 
in the two references and develop a 
program whose accuracy is limited 
only by the precision of the floating- 
point representation of the final 
result. 

Harry J. Smith 

Litton Computer Services 

1300 Villa St. 

Mountain View, CA 94039 


Dear DDJ, 

Here is some feedback on “In Search 
of a Sine.’’ Some readers may notice 
that the coefficients C1 through C4 
are somewhat different from the the- 
oretical coefficients for the Maclau- 
rin’s series for the sine function. Af- 
ter truncating a series to a specific 
number of terms, it is advantageous 
to cook the coefficients using least- 
squares curve fitting. Presumably the 
values given for C1 through C4 were 
derived in this manner. Rearranging 
the sine formula before doing the ac- 
tual computation would result in 
fewer operations. The BASIC rendi- 
tion would be: 


A2 = A*A 
SIN = (((C4 * A2 + C3) * A2 + C2)*A2 
ed aA. 


and the 32K assembly-language ren- 


dition would be: 


DoSin 
MOVE F3,F1 
MULF F1,F1 
MOVF —0.004362469,F5 
MULF F1,F5 
ADDF 0.07948765,F5 
MULF F1,F5 
ADDF —0.645921,F5 
MULF F1,F5 
ADDF 1.570795, F5 
MULF F5,F3 
RET 0 


Because the coefficients can be 
used only by the DoSin routine, there 
is no reason to keep them in a table. 
Making them immediate operands is 
more compact, faster, and more 
readable. When coding for the 32K, 
you often find that in-line coding is 
more compact than the looping 
method. When using the 32K, you 
must remain alert for opportunities 
to be liberated from your old habits. 

For higher precision, you could 
further divide the range of A. That is, 
if A is more than 0.5, you take the co- 
sine of (1.0 — A) using the Maclaurin’s 
series for the cosine: 


A2 = A*A 
Cos = (((D4 * A2 + D3) *A2 + D2)* A2 
+ D1) * AZ EO 


In order to realize the higher preci- 
sion, you would need to recook the 
coefficients based upon the shorter 
range. 

Another thing to keep in mind 
when doing math routines for the 32K 
is that the FPU is very fast; it does a 
double-precision multiply faster than 
the operands can be moved in and out 
of memory. Therefore, the old rule of 
thumb about the floating-point opera- 
tion dominating the time is no longer 
true. 

The bugs in the 32K alluded to by 
Mr. Campbell are almost certainly a 
thing of the past; if you have a rea- 
sonably mature version of the 32K, 
you should refrain from using any 
and all addressing modes with float- 
ing-point operands. 

Neil R. Koozer 

Kellogg Star Route Box 125 

Oakland, OR 97462 

DDJ 
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Some Very Impressive People Keep Our 





Asynch C Tools Under Their Hats 


This is the only way we can get some of our customers to 
take their hats off to us in public. We understand. Most 
people like to keep a good thing to themselves. 


Once you see how powerful and simple our functions are, 
you'll want to treat our Communications Library Plus as a 
well guarded trade secret too. 


Essential provides the best alternative to Assembly 
language for communicating 
via an RS-232. 


However, should 
Curlosity get the best 
of you, call us at 
201-762-6965 and 
we'll let you in on 
the identity of some 
of our secret . 
admirers. 


Behind every * 
reat program is a great library 


What Good Are Library Functions If 
You Can’t Get Them To Work? 


Providing functions is not enough. Essential Communica- 
tions Library Plus includes BreakOut, a slick on-line data 
monitor. BreakOut saves hours of frustration. We know, 
we used it to debug the XMODEM and other functions in 
Essential Communications. 


No Royalties, 30-Day Guarantee 


If within 30 days you don’t find our library or BreakOut 


totally satisfactory, hang the whole thing up and receive a 
complete refund. 





Functions At A Glance 
@ Interrupt driven to 9600 @ Input buffers to SOOK 
baud @ Source included 
@ Hayes compatible support @ Demo terminal program 
@ Demo BBS system 
@ All major compilers 


@ 150 page manual—tutorial 
@ XMODEM, XON/XOFF 
Support supported 


e Timer/Keyboard functions ® Ctrl-Break status 





Comm Library Plus/BreakOut $250 Comm Library $185 





BreakOut On-line Monitor/ Debugger 
© Monitor RS232 ports up to 9600 baud 

© Control comm variables and line signals 

@ Send/receive data using the scratch-pad editor 

@ Edit scratch-pad in Hex or ASCII 

© Save data to file or re-transmit it 

@ User configurable keyboard macros 

© Use symbols for control chars (<ACK>) for Hex 06 









BreakOut $125 
Do Your Homework 
The library you buy will influence the rest of your 
programming life. When you’ve done your homework, 
you'll choose Essential. Call our support staff of C pro- 
x grammers and find out now how things 
ee will be after your check clears. 







To order or for support 
call: 201-762-6965 

aii »For foreign orders contact: 
—. England: Gray Matter Tel. (0364) 53499 


Japan: Lifeboat Inc. of Japan Tel: 293 4711 
West Germany: Omnitex Tel. 07623-61820 


Essential Software, Inc. 


PO. Box 1003, Maplewood, New Jersey 07040 


Circle no. 139 on reader service card. 








ARTICLES 


Compressing 
Eupmasce Diepatz 


With Quadtrees 





quadtree is a tree 
A data structure in 

which each node 
can have four child nodes 
under it (compared to a bina- 
ry tree in which each node 
can have two children). 
Quadtrees can be used as an 
efficient representation of ee 
graphical information and offer some interesting fea- 
tures. For a graphical quadtree, each node represents a 
square area of the graphical image and each of its four 
children represents one quadrant, or one fourth, of its 
area. These subareas are defined by dividing the original 
area in two equal halves, left and right, and dividing each 
of these halves in half, top and bottom. Thus the subareas, 
or quadrants, are of equal size and are also squares. The 
root node, called the top node, represents the entire im- 
age and has under it four children each representing one 
fourth of the entire image. This process of division is re- 
peated until each child represents only a single pixel of 
the original image. If the original image is not a square 
with the number of pixels on each side being a power of 
2, the image has to be filled out to that size with a back- 
ground color. The bottom nodes, each representing one 
pixel, are leaf nodes of the tree. (Data structure trees are 
upside down from actual trees because the root node is 
said to be on the top and the leaf nodes on the bottom.) All 
the nodes in the tree at the same distance from the root— 









that is, having the same number of nodes between them > 


and the root—are said to be on the same level. For graphi- 
cal quadtrees, the levels are numbered starting from the 


Eh ey aes ps TES ee ees ee 
Ronald G. White, 161 S. 35th St., Boulder, CO 80303. Ronald 
has an M.S. in computer science from the University of 
Colorado. He is currently involved in porting software to 
new graphics terminals and workstations. 
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by Ronald G. White 











bottom nodes—the leaves— 
which are at level 0. If the 
image is NXN pixels, where 
N=2k, then the root, or top, 
node is at level k and the 
number of levels is k+1. 

To represent a graphical 
image, the leaves of the 

See | quadtree need to have infor- 
mation about the corresponding pixel associated with 
them. If the image isa color image, then the bottom nodes 
will have a color value. This value can be an index into a 
color map, a set of RGB values, or some other color infor- 
mation. The information associated with nodes that are 
not at the bottom level has a less obvious meaning. If all 
four children of a nonleaf node are leaf nodes and they all 
have the same color, the parent node can adopt that color. 
In fact, the child nodes then become redundant and can 
be removed from the quadtree. With all four children 
removed, this node now becomes a leaf node even 
though it is not a level 0 node. Removal of unnecessary 
nodes is called pruning and can be repeated for succes- 
sively higher levels, moving from the leaves toward the 
root. 

If fewer than four child nodes have the same color, the 
parent can still adopt the predominant color of the chil- 
dren. If the children with the same color are leaf nodes, 
they can be removed from the tree. The parent node does 
not become a leaf node in this case because there are still 
child nodes under it, but you have reduced the size of the 
tree by removing at least some of the child nodes. It 
would be possible, even if all four child nodes were dif- 
ferent colors, for the parent node to adopt one of the child 
nodes’ colors and to remove that child node. As you will 
see later, in the section about locational codes, in the end 
this removal does not gain anything. You can get rid of 
one child node, but you then have to keep the parent 
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node. In my code I prefer to have the parent node adopt a 
color only if at least two of the child nodes have that color. 

When a graphical image is represented by an efficient 
form of a quadtree (locational codes, presented in the 
next section, are one way), the amount of data can be less 
than with some other common representations such as 
simple pixel dumps or run-length encodings. This de- 
pends on the image, of course—a very fine mesh checker- 
board pattern would not be represented efficiently by a 
quadtree. Images in which large areas are the same color 
can be represented by small quadtrees because higher- 
level nodes in the quadtree can represent large sections of 
the image with no need for lower-level nodes below 
them. 

Another advantage of quadtrees is that if they are trans- 
mitted or displayed starting from the top level, then each 
successive level represents a closer approximation to the 
final image. This is particularly useful on some newer 
graphics displays that support a fast polygon fill com- 
mand so that the area represented by a node can be filled 
quickly by a single command. Although I don’t define the 
color of intermediate nodes in this way, each nonleaf 
node's color could be the average Color of the area it rep- 
resents. Each lower level would then provide a more ac- 
curate description of the image as it was transmitted or 
displayed. The method I use defines colors for intermedi- 
ate nodes only if at least half of the fina] area represented 
by that node will be that color. In this case, each lower 
level provides additional information about some areas of 
the image that are not yet accurately defined. In an inter- 
active situation where transmission of data is slow or cost- 
ly, the user could be allowed to stop the transmission or 
display as soon as the image was accurate enough to be 
recognized as wrong or of no interest. With normal scan- 
line display of images, much of the image, and thus a lot 
of data, must be displayed before the contents of the pic- 
ture can be guessed. 
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Quadtrees also have advantages for certain types of 
analysis and manipulation of images, but a discussion of 
these is beyond the scope of this article. For those of you 
who want to pursue this topic further, I’ve provided a list 
of references at the end of this article. 


Locational Codes 
The quadtree representation is efficient for certain types 
of processing, but it is not very efficient in terms of stor- 
age. Locational codes are a way of indicating the position 
of a node in the quadtree without actually storing the 
pointers from the root node to the given node. Instead, 
the path from the root node to the given node is coded asa 
single number. This is generally done by equating each 
direction—NW, NE, SW, or SE—from the parent to the 
relevant child as a single digit (for example, 0, 1, 2, and 3) 
and combining the digits representing the path into a sin- 
gle number. For example, the path NE-SE-SE-NW could be 
expressed as 1330, where the 1 represents the NE child of 
the root node, the first 3 represents the SE child of that 
node, the second 3 represents the SE child of the 13 node, 
and the 0 represents the NW child of the 133 node. Each 
node, then, has a unique representation. Using a base 10 
representation, however, wastes storage space. In my 
code, I pack each direction value into two bits—that is, I 
use a base 4 representation. Other authors recommend 
using a base 5 representation so that the directions are the 
values 1, 2,3, and 4 and Ois reserved asa beginning mark- 
er. This is useful because, depending on the level of the 
node, the number of direction values—that is, digits— 
will vary. In base 5, the preceding example would be 
02441, where the 0 indicates the beginning of the code. In 
base 4, there is no unique bit pattern to use as a beginning 
marker because all four possible two-bit patterns are used 
as direction values. 

The disadvantage of the base 5 scheme is that it requires 
multiplying and dividing by five in order to manipulate 
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COMPRESSIN 
(continued fre 
the encoding. I originally used a base 5 encoding but 
found the conversion from a quadtree path to a locational 
code (and back) too slow. To speed up this process, I 
switched to a base 4 encoding and replaced the multiplies 
and divides by shifts and bit operations, which are faster. 
This representation also needs fewer bits to store it. To 
solve the problem of a beginning marker, I chose to mark 
the beginning with a 01 bit pattern. Because lalways puta 
01 in front of the actual direction values, I can search the 
bits in the locational code from left to right, two at a time, 
and know that the first nonzero pair is not a valid direc- 
tion value but that the next pair is. Without this marker, it 
would be impossible to determine where the direction 
values start. 

Because pointers are not needed with locational-coded 
quadtrees, nodes that only supply redundant informa- 
tion—that is, serve only as placeholders in the tree—can 
be removed, or pruned, from this form of the quadtree 
for more efficient storage Or transmission. This pruning 
can result in significant space savings. Consider, for ex- 
ample, an image consisting of a single red pixel against a 
black background. In the pointer form of the quadtree, 
the root node would have a color of black because this is 
the predominant color of the area it represents (though 
not the only color). Three of its child nodes, representing 
the three quadrants not containing the red pixel, are not 
necessary because the information they would hold—the 
color black —is already held by their parent and all nodes 
under them would also have the same information. The 
fourth node, on the other hand, is necessary because 
somewhere at the bottom of its subtree is a node repre- 
senting a single pixel and its information is different— 
that is, it has a color of red. This pattern—three nodes are 
unnecessary but the fourth is needed—is repeated down 
through the levels of the quadtree until you reach the 
node representing the red pixel. The nodes in the tree 











































between the root node and the bottom node do not con- 
tain useful color information, but they are necessary to 
save the path from the root node to the bottom node. With 
the locational code form of the quadtree, each node is 
represented by a pair of numbers—the locational code 
itself and a color. For the image of a single red pixel, you 
need to have only two nodes—the root node and the sin- 
gle bottom node—all the intermediate nodes can be 
thrown away. 

Another advantage of some locational codes is that 
when the codes are sorted into numerical order, the high- 
er-level nodes come before lower-level nodes. This is true 
for the three coding schemes already mentioned (base 10 
base 5, and my base 4 with special marker) because pach 
lower-level code requires an additional digit to represent 
the next direction value. Sorted in normal numeric order 
the higher-level nodes, having fewer digits, will always 
precede the lower-level nodes. The base 4 scheme I use 
preserves this feature because the 1 in front of the actual 
direction values is shifted two bits left at each lower level. 
My code, however, makes sorting unnecessary because it 
outputs the nodes from the root node one level at a time. 


Listing One 

Listing One, page 40, is a set of routines for converting 
a graphical image from pixels to a quadtree and output- 
ting the quadtree in locational code form. I have not pro- 
vided a main routine because initialization is likely to be 
application specific and possibly system dependent. The 
main routine should do whatever is necessary to make 
available a graphical image. Necessary tasks might in- 
volve reading the image into an array froma file, getting 
information interactively about what image or what part 
of the image the user wants, or initializing the display 
with the image if the image is to be taken directly from 
the display. The main routine also needs to perform ini- 
tialization for the output of the quadtree. This could be 
opening a disk file and writing some header information 
to it, or it might involve opening a communications chan- 
nel of some sort. After all this is done, the main routine 
calls px2quad(). 

The only externally accessible routine is px2quad(), 
which must be passed the size of the image. If the actual 
size of the image is not a square with each side equal to a 
power of 2, the size passed to px2quad() is the smallest 
such square that the image will fit inside. These routines 
assume the availability of two routines, getpix() and 
putlcc(), that they can call. Besides the main routine, you 
must also supply these routines. Getpix() returns the color 
value of a pixel at a given x,y position, and putlcc() is 
called to output the locational code and color for each 
node. 

The primary data structure used by the routines in List- 
ing One, defined at the beginning of the listing, is used for 
each node in the quadtree. The first field, child, is an ar- 
ray for the four pointers to child nodes. The direction 
value serves as a subscript into this array, with the follow- 
ing correspondences: 0, 1, 2, and 3 correspond to the di- 
rections NW, NE, SW, and SE, respectively. The second 
field in the node data structure, next, is a pointer to the 
next node on the linked list used during output. This 
linked list is explained later as part of the explanation of 
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“Microportis 
the fastest path 


between _ 
realUNIX 


System V 
and you. 


Dimitri Rotow runs a company 
on the go. He has little time 
for hardware or software that 

doesnt do the ultimate job for 

his company’s customers. 


Two months ago he assessed 
three readily-available UNIX 
and UNIX-like) operating 
systems. After evaluating 
pricing, packaging, 
documentation, quality, 
service, manufacturer's 
support, compatibility, third- 
party support, features, 
conformity and performance, 
he and his VP of engineering 
came to one conclusion: “To 
praise Microport is to praise 
the AT&I/Intel joint venture, 
because Microport's version 
of UNIX System V is virtually 
identical. However, more value 
is received since more 
middlemen are removed— 
thats much closer to buying 
direct and selling direct” 


Bell Technologies’ customers 
appreciate real value plus real 
System V. If youre an OEM, a 
reseller, an end-user or simply 
Curlous about our product— 

Call us today and see what all 
the endorsements are about 


Microport Systems, Inc. 
10 Victor Square 


Scotts Valley, CA 95066 


408/438-UNIX (438-8649, local) 
800/822-UNIX (Inside California) 
800/722-UNIX (Outside California) 
FAX: 408/438-2511 
Telex: 249554 
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COMPRESSING IMAGE DATA 
(continued from page 18) 


the routines outtree() and outnode(). The next field, color, 
is the color associated with the node. I store this as a single 
value because I am using the index value into a color 
table. More extensive information could be substituted 
for the single value although this would complicate the 
code somewhat. The ntype field is a flag that indicates 
what type of node this one is. The three node types are 
defined in the next section of code. The ntype field is not 
absolutely necessary (as is explained later), but I find it 
useful. The final field in the node structure, locode, is the 
locational code for this node, which is calculated as each 
node is added to the quadtree. 

The next section of code defines the three node types— 
LEAF, BLEND, and WASH. LEAF type nodes are nodes that 
have no further nodes under them. The color value of a 
leaf node represents the color of all the pixels in the area 
defined by that node even if it is not a bottom-level node. 
If, during the initial pruning of the quadtree, a node has 
two or three children that are leaf nodes and that share 
the same color, the parent node adopts the color of these 
child nodes and these nodes are removed from the tree. 
This parent node is marked as a BLEND type node to indi- 
cate that its color value is the color of pixels in areas repre- 
sented by missing child nodes and that the node has child 
nodes that were not removed. All nodes that are neither 
LEAF type nodes nor BLEND type nodes are marked as 
WASH nodes, indicating that their only purpose is as 
placeholders for the pointers to child nodes and that their 
own color is not relevant. 

The routine px2quad() is the control routine for all the 
processing necessary to build and output the quadtree. 
The first thing it does is create the root node with a call to 
crtnode(). It then calculates the level number of the root 
node from the parameter size, which the calling routine 
passed to it. What this code does is find k, where size = 2K. 
(There may be a more direct way to do this.) After setting 
the locational code for the root to 0 (remember that the 1 
is not actually part of the locational code but a beginning 
marker), px2quad() calls addnode() to add the root node to 
the currently empty quadtree. Addnode() calls crtnode() 
and itself recursively to create the rest of the quadtree. 
When addnode() finally returns, the quadtree has been 
built and the initial pruning done. Px2quad() then calls 
outtree() to control the final pruning and the output of the 
quadtree as locational codes and colors. Renae 

The function crtnode() creates a new node, initializes it 
with default values, and returns a pointer to it. I use a call 
to the system routine malloc( ) to get enough space for one 

node. This step could be a problem for several reasons. 
The first is the overhead associated with making this call 
perhaps hundreds of thousands of times during the cre- 
ation of the quadtree. This overhead could be reduced by 
getting larger chunks of memory (or even statically allo- 
cating a very large array) and having crtnode() and rel- 
node() maintain a list of free nodes. This approach com- 
plicates the code, of course, but it might be worthwhile 
for improved performance. The second potential prob- 
lem is the amount of memory required for a quadtree 
that represents a reasonable-size image. I'll discuss this in 
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more detail at the end of the article. Malloc() returns a 
NULL pointer if no more memory is available or some- 
thing else goes wrong; crtnode() checks for this condition. 
The last part of the code initializes the newly created 
node. The node type is set to LEAF, indicating that this 
node does not have child nodes after it. If addnode(), the 
next routine, creates new nodes under this one, it will 
also call condense(), which, among other things, resets 
the node type. 

Addnode() adds a newly created node to the quadtree. 
If this node is not at the bottom level, it creates four new 
child nodes under the current one with calls to crtnode() 
and calculates locational codes for these new nodes. This 
calculation is simple. The locational code for the current 
node is available in the node data. The locational code for 
a child node needs only one direction value added onto 
the end of the parent’s code. Because the direction value 
is the same as the subscript into the array of pointers to 


the four child nodes, all the code has to do is shift the 
parent’s locational code left two bits and add in the direc- 
tion value for the child. Addnode() then calls itself recur- 
sively for each of the new child nodes. After these four 
new nodes have been added, addnode() calls the routine 
condense(), which examines the four nodes under the 
current node to see if any of them can be removed. If, on 
the other hand, the current node is at the bottom level— 
that is, this node represents a single pixel of the image— 
getcolor() is called to get the color of the pixel. 


Condense() is the routine that does the initial pruning of 


the quadtree and is probably the most complex routine 
presented here. It first loops through the four children of 
the current node (addnode() does not call condense() for 
leaf nodes, so the current node will always have four 
children), collecting information about their colors. What 
the code is looking for is a predominant color—that is, a 
color shared by two or more child nodes. Nodes that are 
marked as type WASH are ignored because their color is 
meaningless (as is explained later). Condense() sets the 
current node’s color to the predominant color. If no two 
children have the same color, then the next section is 
skipped. Otherwise, the code again loops over the four 
children. If a child had a type of WASH, it can’t be deleted, 
so it is ignored. If a child has the same color as the pre- 
dominant color, it is either removed, if it is a leaf, or de- 


moted to type WASH otherwise. The reason why it can be 
removed if it is a leaf is that the area it represents 1s 1n- 
cluded in the area represented by its parent and the par- 
ent now has the same color—the color of the child node is 
therefore redundant. If a child node is not a leaf, this 
means that it has at least one child node of a different 
color below it and so it cannot be deleted without losing 
the pointers to its children. Its color, however, 1s now 
redundant information, and this fact is noted by marking 
it as a WASH type. The final section of code in condense( ) 
resets the node type of the current node. If all four chil- 
dren have been released (because they were all the same 
color and now this node has that color), then this node 
becomes a leaf node and is marked LEAF. If this node has 
adopted a color because two or more of its children have 
been removed or marked as WASH type nodes, it 1s 
marked as a BLEND type node to indicate that itis nota leat 
node but its color is relevant information. If the node is 
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WINDOWS FOR DATA” 





The first choice 





of professional 





C programmers 





“Windows for Data is the best 
programming tool I’ve ever used. 
It’s the most flexible I've seen. 
Whenever I’ve wanted to do something, 
I've been able to find a way” 


Professionals choose our tools because 
they are designed, crafted, and supported 
for professionals. Here at Vermont Creative 
Software, we understand that performance 
and pleasure in programming derive 
from more than a long list of functions. 
Windows for Data provides: 


PROFESSIONAL FLEXIBILITY: 
Our customers repeatedly tell us how 
they've used WFD in ways we never imagin- 
ed - but which we anticipated by designing 
WFD for unprecedented adaptability. Vir- 
tually every capability and feature can be 
modified to meet special needs. You will be 
amazed at what you can do with WED. 


PROFESSIONAL PERFORMANCE: 
Screen output is crisp and fast. Windows, 
menus, and data-entry forms snap up and 
down from the screen. WED is built upon 
and includes Windows for C, the win- 
dowing system rated #1 in speed and 
overall quality in PC Tech Journal (William 
Hunt, July 1985). 


PROFESSIONAL RELIABILITY: 
An unreliable tool is worse than no tool at 
all. VCS products are known in the industry 
for their exceptional reliability. Ask anyone 
who owns one. 


PROFESSIONAL DOCUMENTA- 
TION: Over 600 pages of documentation 
provide step-by-step explanations for each 
major application, a reference page for each 
function, listings of functions alphabetical- 
ly and by usage, and a fully cross-referenced 


Steven Weiss, 
Stratford Systems 


index. Extensive tutorials and demonstra- 
tion programs assist learning. 


PROFESSIONAL TECHNICAL 
SUPPORT: The same expert program- 
mers that develop our products provide 
prompt, knowledgeable technical support. 


PROFESSIONAL PORTABILITY: 
High-performance versions of VCS 
products are available for XENIX, 
UNIX, and VMS, as well as DOS. No 
royalties. 





OUR CHALLENGE AND 
GUARANTEE 

If you have an application where no 

other tool can do the job, try Windows 

for Data. If it doesn't help you solve 

your problem, RETURN FOR A FULL 

REFUND. YOU MUST BE SATISFIED 


Ask for FREE DEMO DISKETTE 





















Vermont 21 Fim Ave 
Creative Richford, VT 05476 


Software 802-848-7738, 
Telex: 510-601-4160 VCSOFT 


Prices: PCDOS* $295; XENIX, VMS. UNIX Call. 
No royalties. Shipping $3.50. 
*PCDOS specify C compiler. 
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WINDOWS FOR DATA 


for DOS, UNIX, VMS ... 
The complete windowing data entry, menu, 
and help system that does the hard job 
others cant — we guarantee it! 


Pop-up data entry windows: field types for 
all C data types, plus decimals, dates, and 
times; auto conversion to and from strings 
for all field types; system and user supplied 
validation functions; range checking; re- 
quired, must-fill, and protected fields; free- 
form movement: multiple-choice field entry; 
scrollable sub-forms. Branch and nest win- 
dows, forms, and menus. 


Complete context-sentitive help system 
with pop-up windows and scrollable text. 


Pop-up, pull-down, scrollable, and Lotus- 
style menus. 


NEW FOR DEBUGGING: Exclusive 
VCS Error Traceback System auto- 
matically identifies the location and 
cause of program errors. Eliminates the 
need to code error checks on all function 
calls! VCS Memory Integrity Check- 
ing helps catch those hard-to-detect, 
memory-corruption errors. 


NEW FOR ERROR HANDLING: In- 
stall your own error handler to be called 
whenever a function detects an error 


NEW FORM LAYOUT UTILITY sim- 


plifies form design. 
















How a magical 
enie saved this 


programmer from 
going crazy _ 


Fite format changes were driving me nuts. 
Then, I got stuck with a 12 year old word 
processing file that had to be converted to 
WordStar® ASAP. I must have passed out 
momentarily, because the next thing I re- 
member is a guy in a turban, jamming a 
diskette into my PC. He pressed a few keys 
and “Presto” he created a new utility for my 
program. The file conversion underway, | { ‘Ha 
passed out again and when I woke up, he A a wh 5 
was gone—but the amazing utility software he had x es 
used remained. 

File Genie, that’s the name on the diskette. An amaz- 
ing tool. Since then, I discovered that it will convert 
word processing and data files from most any format to 
any other. And, as if that isn’t enough, it also: diagnoses 
and fixes errors in broken database files, instantly 
searches and replaces on seven and eight bit data (on 
ambiguous file names, with the most complete set of 
regular expressions I’ve ever seen), has a script language 
with IF, ELSE, WHILE, FULL SCREEN CONTROL, 
and the ability to run DOS commands or programs, 
comes with on-line context sensitive help, et cetera, 
et cetera. Allows printing of files without my 
printer reacting to control codes too. 

With File Genie I write my own utility pro- 
grams quickly and easily. As you can imagine, 
I guarded this little gem with my life, keeping it 
totally secret. Until everybody kept asking me 
how I was doing all these incredible things. I have to 
admit, I am sold. Which gets me to the really fabulous 
news. File Genie is available by calling 1-800-822-0852 for 
an introductory price of only $69.95. You'll save that much in 
aggravation the first tume you use it. So if those files are driving \ 
you crazy, too, call and order your File Genie today. ) 


WordStar® is a registered trademark of MicroPro 







ak Ey i€ 6809 Convoy Court > a? 
San Diego, CA 92111 
GENIE 619-278-5353 (CA) 
800-822-0852 (USA) aS 


A software product of Team Austin Inc. 
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Turbo Programmers: 





Find the culprit fast 
with TDebugPLUS 


ou're programming, getting all your ducks in 

a row, but there's a culprit in there, a bug. 
T-DebugPLUS, the new symbolic run-time debugger, 
helps you find that bug and fix it faster than ever before. 


IN COMMAND. IN CONTROL. 


See what happens as your Turbo Pascal programs 
run...examine variables. . -change values...be in con- 
trol. The top half of your screen displays the source 
code, current line highlighted. You debug interactively 
on the lower half. All variable types are accessible, local 
and global. Set breakpoints at a procedure, function, 
or statement number. 


INSTANT GRATIFICATION. 


T-DebugPLUS integrates invisibly, automatically 
loading Turbo Pascal. Switch instantly between the 


debug and output screen. Jump instantly to the editor 
to fix that bug. 


NEw...DEBUG IN OVERLAYS. 


Debug in overlays with release 1.04. Examine areas 
of memory and CPU registers. A MAP generation utility 
even lets you use an external debugger on your pro- 
stam. T-DebugPLUS is only $60. 


“T-DebugPLUS: Don’t program in Turbo Pascal 
without it” 


Neil Rubenking 
PC Magazine 


MORE POWER. MORE PRODUCTIVITY. 


Turbo EXTENDER” helps you break the 64K 
barrier for both code and data; use all 640K. A source 


code converison program, make facility, and run-time 
routines make writing and compiling large programs 
dramatically easier. Turbo EXTENDER is only $85. 
TurboPower Utilities” Supplies nine powerful 
programs. Four Pascal utilities, including the acclaimed 
Pascal Structure Analyzer and Execution Timer, help 
you write programs that are bug free, faster and easier 
to document. Five PC-DOS utilities help you analyze, 
change, and find your program files. TurboPower 
Utilities is only $55 for executable, $95 with source. 


“Impressive products...Irecomm end them” 
Philippe Kahn, President 
Borland International 


Satisfaction guaranteed or your money back 
within 30 days. 


Call toll free for credit card orders: 


800-538-8157 x230 


outside California or 
800-672-3470 x 830 


in California 







Shipping and taxes Prepaid for U.S. and Canadian 
customers. Others please include $6 per item for 
shipping. 


TurboPower Software prod- haa 
ucts require Turbo Pascal 3.0 
(standard, 8087, or BCD) and 


require PC-DOS 2.X or 3.x, a 
and run on the IBM PC/XT/AT 


and compatibles. 


TurboPower Software, 3109 Scotts Valley Dr. #122 
Scotts Valley,CA 95066 


Call 408-438-8608 for more information (M-F 9AM-5PM PST). 
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COMPRESSING IMAGE DATA 
(continued from page 20) 











































application dependent. The simplest thing for putlcc() to 
do is write the data to a file for later processing or display. 
Putlcc() could also transmit the data to a remote display. 


After putlcc() is called, the node’s children, i 
, en, if 
added to the end of the list. one 


ee a LEAF nor a BLEND, it is marked as a WASH. This 
ppens when none of the four children share a com- 
i en ne = WASH nodes and have no color 
parent node: is Laat eee ae age ae eee 
Dee 5 re ee ense() and this node is then 
quadtree because ee ee ee 
nodes are not output. 
Se : act Apia endh of crinode( )—it releases 
eae. Ra or efficiency, this routine could add 
ed list of free nodes from which 
crtnode() could get space for new nodes. It is implement- 
ed here as a call to the system routine free(). 

Getcolor(), called by addnode() when it reaches a leaf 
node at the bottom level, is a function to return the color 
of the pixel represented by a bottom-level node. The ma- 
jority of the code is concerned with converting the posi- 
tion of the node in the quadtree, given as its locational 
code, to a column and row (x and y) pixel position. The 
code does this by extracting the directions shifted into the 
locational code by addnode() in the process of building 
the locational code. Because this is a bottom-level node, 
the number of direction values is equal to the top-level 
number. Getcolor() shifts the direction value for each lev- 
el, starting with the top level or root, to the bottom bits 
and masks them off. As the direction code is recovered for 
each level, the column and row values are shifted left one 
bit and the new bottom bit is set or not depending on the 
direction. This works because the direction values define 
two simultaneous binary searches through the pixel 
space. The first search, for column, successively splits the 
pixel space into left and right halves. The second search, 
for row, successively splits the pixel space into upper and 
lower halves. Thus each bit in the column or row value is 
a direction in the binary search. Whereas the locational 
code needs two bits to represent one of four directions, 
the column and row values need one bit to represent one 
of two directions. 

Outtree() and outnode() are the control routines for the 
second phase of Listing One—outputting the quadtree as 
locational codes. In order to output the nodes in a 
breadth-first order—that is, all nodes at one level are out- 
put before any lower-level nodes—outtree() and _ out- 
node() construct a linked list of nodes yet to be dealt with. 
As the node at the front of the list is examined, and possi- 
bly output, its children are added to the end of the list. 
The linked list serves as a FIFO queue, which means that 
each level, starting from the top, is processed before the 
next level is started. Outtree() initializes the linked list by 

putting the root node on it and setting its next pointer to 
NULL. It then enters a loop calling outnode() with the next 
node on the list until the list is exhausted. Outnode() 
checks the node type of the current node and outputs the 
locational code and color if the node is not a WASH. During 
this final pruning of the quadtree, nodes whose only 
function in the quadtree was to point to lower-level nodes 
are dropped from the locational code form because the 
pointers are no longer needed. The routine putlcc() is not 
defined here because what it does could be system or 


Listing Two 


Coe eee apg a set of routines for display- 
first set of routines os es Ree Oe semen Va 
single routine aveds to b i oa a ne ser only a 
bie re S a od. The main routine will 
opening the file Sh baer ueeae at a ce 
header section or oie a ine a taste 
ape nications channel. It 
ees aa need to initialize a graphics system or at least 
PE Senet, Qdisp() is the entry point for the second 
set of routines. It needs to know the size of the original 
image, which could be read from a file header associated 
with the quadtree file or supplied by the user. These rou- 
tines make calls to two externally defined routines that 
you must supply. These are getnxn(), which returns the 
next quadtree node as a locational code and a color, and 
filrec(), which fills in a rectangle on the display with a 
given color. 

Most of gdisp() is a loop that gets the next node as a 
locational code and color by a call to getnxn(), converts 
the locational code to the corner and side of the square 
represented, and fills in the square with the color by a call 
to filrec(). Getnxn() and filrec() are assumed to be supplied 
separately because they might be both system and appli- 
cation dependent. Getnxn(), for instance, might be read- 
ing the quadtree data from a file or reading it from a serial 
port. Filrec() is given the upper-left corner and sides of a 
rectangle (node quadrants are, of course, always square, 
but filrec() is presumed to be more general) and a color, 
and it fills the defined rectangle on the display with the 
color. If you are lucky enough to be using a system with a 
graphics package that supplies such a call (or better yet, a 
display that has the function available in hardware), then 
the implementation of filrec() should be simple. If you are 
not so lucky, then filrec() may have to loop over all the 
pixels in the rectangle, setting each to the given color. 

The routine square() converts a locational code to the 
corner and side of the square represented by the node. It 
is very similar to getcolor() in Listing One. Because the 
level of the node is not known, the code must search the 
locational code for the beginning marker. After finding 
this, the code loops, like getcolor(), over the direction val- 
ues from the root to the current node. At each iteration, 
the length of the side, initialized to the original image size, 
is divided by two and the corner position is adjusted ac- 
cording to which quadrant is indicated. 


Practical Considerations 

Quadtrees in pointer form can use up a lot of memory. In 
the worst case, in which no nodes can be released during 
construction, an image of size N (= 2k) would require 
more than NXN nodes. For example, an image of 
256 X 256 pixels could require more than 64K nodes. Using 
my data structure for a node, this takes up 2 megabytes of 
memory on a machine that uses 4 bytes for ints and point- 
ers. A more efficient structure may be needed. Using 
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smaller fields and/or combining fields would be one way 
to reduce memory needs. The node type field could be 
removed with some additional processing —the type 
LEAF could be deduced from the fact that all child point- 
ers are NULL and, because the color of a WASH node is 
meaningless, a special value in the color field could indi- 
cate that a node was a WASH. 

Besides the memory problem, the time required to cre- 
ate the quadtree may also prove to be a problem. Despite 
some efforts to speed up the process, such as switching to 
a base 4 representation for the locational codes, creating 
the quadtree is still very slow. One improvement, as men- 
tioned already, might be to change the way crtnode() and 
relnode() get and release nodes. Another might be to keep 
more information about the location of the current node 
so that getcolor() does not have to figure this out from the 
locational codes. I think, however, that major improve- 
ments will require somehow avoiding all the hundreds 
(or thousands) of calls to addnode() and condense() for 
sections of the image that are a single color and could be 
quickly defined as a few high-level nodes. 

Much to my disappointment, the display of the quad- 
tree is not very fast. Even ona display that supports rect- 
angle fill, a scan-line display of an image is faster than the 
quadtree display, although the display of the quadtree is 
more interesting to watch. For any reasonably interesting 
image, a lot of individual pixels must ultimately be filled 
in to complete the image and this takes a lot of time. 

Despite these problems, quadtrees can offer some ad- 
vantages over other graphical image representations and, 
in some cases, may be the best choice. 


Availability 

All the source code for articles in this issue (except C 
Chest) is available ona single disk. To order, send $14.95 to 
Dr. Dobb’s Journal, 501 Galveston Dr., Redwood City, CA 
94063 or call (415) 366-3600 ext. 416. Please specify the issue 
number and disk format (MS-DOS, Macintosh, Kaypro). 
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Lika 


More Common Lisp features in less space 
for less money than any other IBM-PC lisp. 


@ MSDOS portable 

@ Bignums, 8087 support 

@ Multidimensional arrays 

@ Full Common Lisp package system 

@ Full set of control primitives. 

@ Keyword parameters, macros 

@ Save/restore full environments for speed 


W STEP, TRACE, BREAK, DEBUG, ADVISE, 
APROPOS 


@ Holl-out frees space for invoking MSDOS 
commands 


lQCLISP PACKAGE $300. 


fa Integral Quality 
P.0. Box 31970 


cISE Seattle, Washington 98103 


(206) 527-2918 





Now with a compiler. 





@ Compiler comes with source 


@ Compiler cuts execution time 50-75%, 
program size 60-80% 


@ Multidimensional arrays 


@ Floating point bignums, 8087 Support 
@ Vacros 


@ Color graphics 

@ Multiple display windows 

@ Assembly language interface 
@ Available for IBM PC or TI-PRO 


lQLISP PACKAGE $270. 
INCLUDES COMPILER 


@ VISA and Mastercard accepted 
@ Generous update policy 
@ Attractive educational license 
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ARTICLES 


ARC Wars: MS-DOS 





Archiving Utilities 





Ss 


make their computers run 
faster. One speedup technique is data 
compression, which lets the comput- 
er operate on less data while still ac- 
complishing the same amount of 
work. 

Data compression relies on the fact 
that most data are not random. En- 
glish language text, for example, has 
a known character distribution—the 
letter E occurs more often than T, T 
more often than O, and so on. A data 
compression algorithm relies on 
these quirks to use fewer bits to rep- 
resent the same data. For users 
downloading from bulletin boards, 
this approach translates into lower 
phone bills. 

The old standard for data compres- 
sion was a combination of three pro- 
grams—one to combine files into one 
library (LU, library utility), one to 
squeeze this library into fewer bits 
($Q), and another to unsqueeze the li- 
brary (USQ). The squeeze program 
would produce a Huffman encoding’ 
of its input file. 

Thom Henderson of System En- 
hancement Associates (SEA) created 
ARC to provide an alternative to LU. 
ARC can add files to an archive and 
automatically determine which of 
four different compression methods 
to use. An archive can never be much 
larger than the component files be- 
cause one of the four “compression” 
methods consists simply of storing 


BRS es ee eee 
Russell Nelson, 11 Grant St, Potsdam, 
NY 13676. Russell is the author of 
Painter’s Apprentice. He holds an 
M.S.E.E. degree from Clarkson Univer- 
sity in Potsdam, New York. 
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ince the dawn of computers, | 
people have been trying to 








by Russell Nelson 


| Data compression 
_ relies on the fact that 


the file unaltered. 

In actual use, the savings are often 
considerable. After automatic com- 
pression was added, ARC performed 
better than the LU/SOQ/USQ, combina- 
tion, and within seven months of its 
introduction, it became the new 
standard for BBS files. This could have 
happened just because it was more 
convenient, but more probably it 
was because it used an improved 
compression algorithm—the Lem- 
pel-Ziv’ algorithm. 

In fact, ARC became so popular that 
spin-offs using the same file format 
appeared. Spin-offs were easy to de- 
velop because SEA made the ARC 
source available. At present, four dif- 
ferent ARC-compatible systems and 
one ARC-incompatible system are in 
use. This article reviews the perform- 
ance of each of them on different sets 
of files. 



















Table 1: Program versions 








Program Version — Size Donation Cost 
(bytes) 

ARC 5.12 32429 $35 $50 
ARCA 1.18 3796 none 

ARCE 2.06 5424 none 

ARCV 410 2063 none 

ARCH 5.38 32694 none 

PKARC 1 15972 $15 $35 
PKXARC 3.2 9984 $15 $35 
ZOO 1.20 29120 none 


The Programs 

Table 1, below, lists the current ‘as of 
October 1986) program versions that 
comprise each of the five archiving 


| systems. Note that two of the systems 


are distributed as separate pro- 
grams—PKARC and PKXARC form one 
system; ARCA, ARCE, and ARCV form 
another. The other three systems are 
ARC, ARCH, and ZOO. 

The Donation column in Table 1 
gives the suggested donation if the 
software is shareware. Some of the 
software is copyrighted, but no dona- 
tion is suggested. The Cost column 
gives the cost of the software includ- 
ing automatic updates, printed docu- 
mentation, and so on. All these pro- 
grams are freely copyable. 

The box on page 28 gives the au- 
thor’s address for each system. In ad- 
dition, all the files mentioned in this 
article are available from the Clark- 
son University Heath Users Group 
(CUHUG) Fido—(315) 268-6667, 300/ 
1,200/2,400 baud, 24 hours—as well 
as from many other BBSS. ARC and 
PKXARC are distributed as self-ex- 
tracting .CcOM files; the other pro- 
grams are distributed in archive 
form. Look for ARC*.* and PKx*.* if the 
BBS has a wildcard list function. 
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In addition to the archive pro- 
grams discussed in this article, the CU- 
HUG Fido has the following related 
files: DARC.ARC, which deletes from 
the disk any files that may be found 
in the archive; XONE2.ARC, which ex- 
tracts one file from an archive into a 
new archive containing just that file; 
LZ.ARC, which contains assembly- 
language source for a Lempel-Ziv 
compresser and decompresser; 
ARCX.ARC, which contains Turbo Pas- 
cal source for an archive extractor; 
and ARC44.ARC, which contains the 
source for Version 4.4 of ARC. 


Comparison of Features 
Table 2, below, lists the features that 
each program provides. Most of the 
titles are self-explanatory; those that 
aren t are: 


¢ Add files to archive: Obviously all 
archive systems can add files to an 
archive but not all programs in an ar- 
chive system can do so. 

¢ Alphabetic file names: Because ARC 
uses a distributed directory (the file 
names are not kept in a central loca- 
tion), alphabetic adding means that 
the files in the archive must be reor- 
dered when a new file is added and a 
copy of the archive must be made. 
The advantage of not copying the ar- 
chive is that an archive can fill a 







__ Add files to archive 
__ Alphabetic file names 
_ Archive file compatible 
_ Comments attached to files 
_ Copies while modifying 
__ Damaged headers 
_ Delete files after adding 
_ Encryption 
Extract files to console 
_ Extract files to printer 
Extract into archive 
_ Extract to explicit path 
Forced storing 
Freshen files already in archive 
List file names only 
Make backup of the archive file 
Only packing and crunching 
Replace existing files on extract 
Test archive integrity 
Update adds only newer files 
Verbose listing of archive 
_ Wildcard archive file names 


Table 2: Comparison of features 
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whole floppy rather than being lim- 
ited to just half. ZOO uses a version 
numbering scheme to avoid copying. 
ARCA simply ignores the issue and 
makes two copies of the file, only the 
first of which is accessible. 
¢ Damaged headers: If an archive gets 
munged, a file header can be dam- 
aged. Some archivers can skip the 
damaged file; some just give up. 

¢ Extract to explicit path: Sometimes 
you might want to extract a file to a 
subdirectory/drive other than the 
current one. 

¢Forced storing: Because data com- 
pression can take a fair bit of time, 
some archivers allow you to force the 
files to be added uncompressed for 
later compression of the entire 
archive. 

¢Freshen files already in archive: 
Only newer files already in the ar- 
chive are archived. 

¢ List file names only: This is useful if 
you want to pipe the list of file names 
to another program. 

¢ Only packing and crunching: Some 
archivers don't bother to squeeze or 
store a file. 

¢ Update adds only newer files: Older 
files in the archive are left alone. 

¢ Wildcard archive file names: You 
can specify an ambiguous archive 
file name using wildcards in combi- 
nation with some operations. 
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Benchmarks 

Iran benchmarks using a 5-MHz Z100 
with a V20 to run MS-DOS 2.18—all the 
programs run under generic MS-DOS. 
I stored the files and programs in a 
RAM disk so that physical disk access 
times were not significant. The ver- 
bose listings were redirected to a file, 
so console output time is not reflected 
in the run time. 

I have tried to use test data that is 
easily obtainable. ARC44 is an archive 
of the source of ARC, Version 4.4, andI 
used it to test the ability of an ar- 
chiver to cope with a file that cannot 
be compressed further. The MASM 
benchmark is the MASM, Version 4.0, 
distribution disk, and I included it to 
test the compression of nontext files. 
The TDebug benchmark is the source 
of TDebug Plus, available from Turbo 
Power Software; I included it to test 
the compression of text files. 

I tested only the most common op- 
erations—add, add to existing, delete, 
list, and extract. Results of the bench- 
mark tests are shown in Table 3, page 
28. l assume less common operations, 
such as update, freshen, and move, 
will be roughly similar in speed. Ex- 
ample 1, page 30, shows the output of 
verbose listings for some of the ar- 
chive systems. There is not much to 
say because all give the same infor- 

mation and have similar run times. 
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Conclusions 
As shown in Table 3, PKARC is the 
fastest archiver by a wide margin, 


ARC 

Thom Henderson 

System Enhancement Associates 

21 New St. 

Wayne, NJ 07470 

For $50 you receive a program disk 
with printed documentation. If you 
obtain ARC by other means, then you 
cannot use it in a commercial envi- 
ronment or a government organiza- 
tion unless you pay a $35 license fee. 
Site licenses and commercial distri- 
bution licenses are available, as is the 
full program source. 


ARCA, ARCE, ARCV 
Vernon D. Buerg 

456 Lakeshire Dr. 

Daly City, CA 94015 
CompuServe: 70007,1212 













ARC 
Run time 






Run time 






Run time 


Table 3: Benchmark results 
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Archive add—ARC44—archive of source of ARC (57,728 bytes) 


136.87 
Archive extract—MASM 4.00 distribution disk (288,122 bytes total, 13,595 bytes ASCIl) 


Archive extract—TDebug Plus source (289,049 bytes total, all ASCII) 
A 


and PKXARC is the fastest extractor. 
PKARC also produced the smallest ar- 
chives in all but one instance, in 
which ZOO was slightly smaller. 
ARCA/ARCE/ARCV, PKARC/PKXARC, 
and ZOO are written in assembly lan- 


Authors/Vendors 
Data/RBBS: (415) 994-2944 


ARCH 

Les Satenstein 

PCOM RBBS Montreal 

(514) 989-9450 

Given the similarity in features, run 
time, and results, ARCH must be a 
modified copy of ARC. The ARC copy- 
right permissions strictly prohibit 
distribution of modified copies of 
ARC. Nevertheless, ARCH has more 
features than ARC, and sol included it 
in this review. 


PKARC, PKXARC 


| Phil Katz 


7032 Ardara Ave. 


| Glendale, WI 53209 


Send comments to: 


ARC ARCA ARCH 
Run time (seconds) 144.66 42.42 150.27 
Size (bytes) 67,728 58,014 57,728 
Total size (bytes) 7 57,/59 65,564 ited 
Stowage stored packed store 
d—MASM 4.00 distribution disk (288,122 bytes total) 

bowels ARC ARCA , 

i 2.41 653. 
Run time (seconds) 648.77 12 
Total size (bytes) 237,072 221,701 oe 
Compression (percent) 17 23 


Archive add—TDebug Plus source (289,049 bytes total, all ASCIl) 


ARC ARCA oo. 
i 6 364. 
Run time (seconds) 373.44 86.5 
Total size (bytes) 116,802 116,255 : : 6,802 
Compression (percent) 59 59 


Archive extract—ARC44—archive of source of ARC (57,728 bytes) ea 


ARCE 


Stat 139.75 


ARCH 
252.00 


ARCE 
58.06 


ARCH 
188.30 


ARCE 
42.73 


guage, whereas ARC and ARCH are 
written in C. If you don't mind the 
donation, PKARC/PKXARC is the sys- 
tem to use. 

ZOO performed adequately. ZOO is 
the only explicitly public-domain ar- 





Exec-PC multiuser IBM BBS 

modem: (414) 964-5160 

If you find PKARC and PKXARC fast, 
easy, and convenient to use, a contri- 
bution of $15 would be appreciated. 
With each contribution of $35 or 
more, you receive free upgrades of 
the next versions of PKARC and 
PKXARC when available, including 
documentation. 


ZOO 

Rahul Dhesi 

GEnie: DHESI 

People/Link: OLS806 

ARPAnet/CSnet: dhesi%bsu@csnet- 
relay.ARPA 

UUCP: !seismo!csnet relay 
.ARPA!bsu!dhesi 

ZOO is in the public domain. — 


PKARC ZOO 

25.86 40.41 - - “ 
57,728 657726 
57,759 60,625 

stored stored 
PKARC ZOO 

92.11 124.91 
221,020 221,907 

23 23 

PKARC ZOO 

65.36 82. 25 _ 
115,950 ey 013 . 
PKXARC ZOO 

50.98 n/a 

PKXARC ZOO 

46.74 69.64 
PKXARC ZOO 

33.43 54.86 





Dr. Dobb’s Journal, March 1987 


Dr. Dobb’s Journal of Software Tools 


= cei a cig a a 














A. for in-house use only. 
B. for other companies. 


A. Final Decision-maker 
B. Approve/Recommend 





Title | 

Company | PTI cis ahaha apn ag 

Pe ee 

City/State/Zip - | “121 122 123 124 125 126 127 128 129 

March 1987 #125 | Expiration Date: June 30, 1987 , ~ 

Please circle one letter in each category: | 
’ |. My work is performed: V. Corporate Purchase Authority: — eee ee 





C. for end users/retailers. C. No Influence 
D. in none of the areas. VI. Personal Computer Users at my Jobsite: 
ll. My primary job A. 10,000 or more , 
’ - Software Project Mgmt/Spvr B. 500 to 9,999 “241 242 243 244 245 246 247 248 249 
B. Hardware Project Spvr C. 100 to 499 me: “ 
C. Computer Consultant D. 10 to 99 
D. Corporate Consultant E. less than 10 
E. Other Vil. On average, | advise others about 
lll. My company department performs: computers: 
A. software development. A. more than once per day. 
B. computer system integration. B. once per day. 
C. computer manufacturing. C. once per week. 


D. less than once per week. 


Vill. In my job function, I: 
A. design software and/or write code. 
B. design software. 
C. write code. 
D. don’t design software or write code. 


D. computer consulting. 
E. computer research 
F. none of the above. 


IV. This inquiry is for: 
A. a purchase within 1 month. 
B. a purchase within 1 to 6 months. 
C. product information only. 





at the price of $29.97 





—$ — el - “ - — —_— 


TAKE THIS CARD WITH YOU 
AS YOU READ THROUGH 
THIS ISSUE OF DR. DOBB’S. 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT #21 7, CLINTON, IOWA 





e 


Technical Product 





NO POSTAGE 
NECESSARY 
IF MAILED 
IN THE 
UNITED STATES 













POSTAGE WILL BE PAID BY ADDRESSEE 


Dr. Dobb's Journal of 


Software Tools 


FOR THE PROFESSIONAL PROGRAMMER 


P.O. Box 2157 
_ Clinton, lowa 52735-2157 


Information. 











mn 


- 








| | NO POSTAGE 
NECESSARY 


IF MAILED 


IN THE 
UNITED STATES 





BUSINESS REPLY MAIL 


FIRST CLASS PERMIT #217, CLINTON, IOWA 





POSTAGE WILL BE PAID BY ADDRESSEE 


Software Tools 


FOR THE PROFESSIONAL PROGRAMMER 


P.O. Box 2157 i 
Clinton, lowa 52735-2157 





ae 






goal 






‘UOUVDUAOSUT 





TAKE THIS CARD WITH YOU 
AS YOU READ THROUGH 
THIS ISSUE OF DR. DOBB’S. 


ww 


Dr. Dobb’s Journal of Software Tools 


Name 
Title 
Company Phone 
Address —_—_—_—_$_$_$_$_$_—_——_—_ ———_——————_—_  —_ 
City/State/Zip — ££ $£$&$&$ i  ™ i i@i— —_|—_|—_— 


March 1987 #125 Expiration Date: June 30, 1987 


Please circle one letter in each category: 

















+ 








ponpOld [vIIU 


|. My work is performed: V. Corporate Purchase Authority: 

A. for in-house use only. A. Final Decision-maker 

B. for other companies. B. Approve/Recommend 

C. for end users/retailers. C. No Influence 

D. in none of the above areas. VI. Personal Computer Users at my Jobsite: 
il. My primary job function: A. 10,000 or more 

A. Software Project Mgmt/Spvr B. 500 to 9,999 ‘ 

B. Hardware Project Mgmt/Spvr C. 100 to 499 

C. Computer Consultant D. 10 to 99 

D. Corporate Consultant E. less than 10 

E. Other Vil. On average, | advise others about 
lll. My company department performs: computers: 

A. software development. A. more than once per day. ’ 

B. computer system integration B. once per day. 

C. computer manufacturing. C. once per week 

D. computer consulting. D. less than once per week 

E. computer research Vill. In my job function, I: 

F. none of the above. A. design software and/or write code. 
IV. This inquiry is for: B. design software. 

A. a purchase within 1 month. C. write code. 

B. a purchase within 1 to 6 months. D. don't design software or write code. 


C. product information only. 






: the price of $29.97 


“How to protect your soltware 
by letting people copy it? 


By Dick Erett, President of Software Security 


Inventor and 
entrepreneur, 
Dick Erett, 
_ explains his 
company’s 
: ) view on the 
protection of intellectual 
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A crucial point that 


even sophisticated 
software develop- 
ment Companies and the 
trade press seem to be miss- 
ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
COPY protection, 


Fundamentally, software 
Protection involves devising 
a method that prevents 
unauthorized use of 4 
Program, without restricting 
a legitimate user from 
making any number of 
additional] copies or prevent- 
ing program Operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
Protect itself from misuse 
than a padlock can lock itself 

Software Protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
Proof as deemed necessary. 

If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software Protection is at 
a Crossroads and the Choices 
are Clear. You can give 
oroduct away to a segment 
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‘program disk 
Hard Disk Installation : Simply copy a 
to hard disk using DOS Command - Copy A: 










the program diskette as you wish. 


: ) back-up and restore = 
ati k-ups : Use normal - 
a including backing up sub-directories containing 


program files. 










Soon all software installatio 


* y ¥ cop 






etworks : This product may be 
s. Follow the same installation ‘ 
age 102 of this manual. The Bloc 
‘with the normal operation of any 
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n procedures will be as straightforward as this 


The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual] property. 


“... giving your software 
away ts fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
IS determining company 
Policy, then you are no 
longer in control. 


We have Patented a device 
that protects your software 
While allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
Product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could Object are those 
Who would like the Option 
of stealing your company’s 
product. 


a eliminati 


ng the ratio- 
nale for cop 


-busting...” 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for COpy-busting programs 
Is eliminated. 

The BLOCK js fully pro- 
tected by federal] Patent law 
rather than the less effective 
Copyright statutes. The law 
Clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 


~= 


offwa 
CCUrFI ine. 


870 High Ridge Road Stamford. Connecticut 


“ff, 


The BLOCK attaches to 
any communications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number | 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once Ha in ted 
users are essentially unawa 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user 
If it is not present, then the 
Program can take appro- 
priate action. 


“'... possibilities. is 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in Its simplicity, 
Once you understand the 
Principle of The BLOCK. 
hundreds of Possibilities wil] 
manifest themselves, limited 
only by your imagination. 

Your efforts. investments 
and intellectual] Property 

elong to you, and you have 

an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 


Call today for our brochure, 
Or a demo unit” 


Fe 


06905 


203 329 8870 
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chiver I reviewed, which is its strong- 
est point. Its weakest point is that its 
archive files (.ZOO) are not compatible 
with ARC-type archive files (ARC). 
ZOO's author plans to put the finished 
source in the public domain, so I ex- 
pect someone will convert it to use 
ARC-type files. 

Surprisingly, not one of the archive 
programs includes a “rename file in 
archive’ command. In addition, both 


a ee ee ee ee ee ee eee eee me ee 


| LOAD. BAT 
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ARC and PKARC are distributed in a 
self-extracting .cOM file but provide 
no facility for creating your own self- 
extracting .COM file. Another nice 
member of the ARC family would be 
a ‘‘ROM” disk driver that takes an ar- 
chive file as input and produces a 
read-only disk drive when installed. 
A ROM disk would be handy for fre- 
quently used files. 


Notes 
1. D. Huffman, “A Method for Con- 
structing Minimum Redundancy 
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Let Greenleaf do it for you 
and set you free. 


C Program developers, 

stop slaving! 

Greenleaf libraries have the 
functions you need — already 
perfected and in use by winning 
program developers in major 


corporations such as IBM, EDS 
and GM. 


Between our Greenleaf Functions 
and Greenleaf Comm Library, we 
have over 340 functions on the 
Shelf. Each one can save you 
time and effort. Money, too. 


Many C programmers have told 
us that, even if they only use one 
or two functions, our products 
easily pay for themselves: 


The Greenleaf Functions 


The most complete and mature C 
language function library for the 
IBM PC, XT, AT and close 
compatibles. Our version 3.0 
includes over 225 functions — 
DOS, disk, video, color text and 
graphics, string, time/date, 
keyboard, new disk status and 
Ctrl-Break control functions plus 
many more! 


The Greenleaf Comm Library 
Our 2.0 version is the hottest 
communications facility of its 
kind. Over 120 all new functions 
— ning buffered, interrupt-driven 
asynchronous communications. 


Call Toll Free 


1-800-523-9830 


In Texas and Alaska, call 


214-446-8641 











GREENIEAF 


/ pease 
Greenleaf Software, Inc. 


1411 LeMay Drive Suite 101 
Carrollton, TX 75007 


If you need more than 2 ports, 
only Greenleaf gives you the total 
solution — boards, software, and 
complete instructions that enable 
you to build a 16-port 
communication system. 


And no matter how many ports 
you have, it’s virtually impossible 
to lose information with multiple 
file transfers. XMODEM, XON/ 
XOFF and Hayes modem 
controls are featured. 


We support all popular C 
compilers for MS DOS: Lattice, 
Microsoft, Computer 
Innovations, Wizard, Aztec, 
DeSmet and Mark Williams. 


Order today! 


Order a Greenleaf C library now. 
See your dealer or call 1-800- 
023-9830. Specify compiler 
when ordering. Add $8 for UPS 
second day air, or $5 for ground. 
Texas residents, add sales tax. 
Mastercard, VISA, P.O., check, 
COD. In stock, shipped next day. 


Greenleaf 

Comm Library v2.0 $185 
Greenleaf Functions v3.0 $185 
Digiboard Comm/4-II $315 
Digiboard Comm/8-II $515 


We also sell compilers, books and 
combination packages. 
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80286 8MHz @ 1.2 MB Floppy 
30 MB Hard Disk @® 512K RAM 


Monitor and 
Graphics Card 
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PANASONIC FX=800 


8086 7.14 MHz * One 360K Floppy 
20 MB Hard Disk * 640K 
Monitor and 









$1375 


TOSHIBA 
T1100 PLUS 


2 720KB Drives 
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Custom configurations available Graphics Card 8 hr. Battery @ 640K 
: Xtrieve Query Utility 162 
pou Fit 109 Rtrieve Report Generator 119 
Compact Source Print CALL RPGII Combo 899 Windows 65 Btrieve/N Networks 459 
Tree Diagrammer CALL C-86 279 RPGII Compiler—No Royalty Windows Development Kit 324  Xtrieve/N Networks CALL 
Introducing C 99 631 Rtrieve/N Networks CALL 
ACS Time Series 399 CtodBase 129 Secret Disk 92 Pasm86 Macro Assembler 129 
For-Winds 75 Cl-86 Plus CALL  SideTalk 92 Pdisk Hard Disk Utility 129 Flash-Up Windows 75 
Forlib-Plus 52 ClProbe 189 TextManagement Utilities 92 Pfantasy Pac CALL Flash Code 119 
Scientific Subroutine Pkg. 254 Cl] ROMPac 139 TopView Toolbasket 186  Pfinish Performance Anal. 235 Screen Sculptor 94 
Strings & Things 52 TopView Toolbasket w/S.C. 375 Pfix-86+ Symbolic Debug 235 Speed Screen 28 
Please specify Combo 165  Z-80CCrossCompiler 375 PforCeC Library 235 
Fortran Compiler C Function Library 105 Z-80CXCompilerw/S.C. 744  Plink-86+ Enhanced Linker APL PLUS/PC 439 
C Windows 105 319 APLPLUS/PC Spreadsheet 149 
Expert System Dev. Pkg. 269 Superfonts for C 42 Modula-2/86 Compiler 63  Pmaker Make Utility | 79 APLPLUS/PC Tools Vol.1 229 
File Interchange Toolkit 45 Modula 2/86 w/8087 99 Pmate Macro Text Editor 119 APLPLUS/PC Tools Vol.2 59 
Prolog Compiler/Interpreter C Essentials 82 Modula 2/86 PLUS 144 Pre-C Lint Utility 159 APL PLUS/UNX (XENIX) 695 
729 «©. C: Utility Library 135 Modula2LibrarySources 84 Ptel Binary File Transfer 115 Financial/Stat. Library 194 
Prolog Interpreter 319 Essential Graphics 189 Modula 2 Make Utility 26 Pocket APL 75 
Screen Design Toolkit 45 Modula2 ROM Package 177 PolyBoost 65 StatGraphics 589 
SQL Development Package Graphics Development Toolkit Modula2RunTimeDebug 57 OC Beautifier 43 , 
269 369 Turbo-Modula Translator 43 C_Library | 73 BetterBasic 139 
Standard Prolog 78 Kernel System (DOS) 369 Modula 2 Utilities Pack. 43 Power Comm. 134 BetterBasic 8087 Support 74 
Combo Package 4099 ~—-Kernel System (IBM RT) 639 Modula2 Windows Pack. 43 PolyLibrarian 74  BetterBasic Btrieve Interface 74 
Metafile Interpreter 229 Mice listed on next page. PolyLibrarian I! 110 BetterBasic C Interface CALL 
Asynch Manager—C 131 Plotting System 374 PolyMake 74 BetterBasic RunTime Module 
Asynch Manager—Pascal 131 Solutions Chart 235 MetaWindows 135 PolyOverlay 74 219 
C Tools 98 ~—_ Solutions Plottalk 935 MetaWindows Plus 195 PolyXREF—Complete 175 
C Tools 2 78. Solutions Terminal 235 ~‘TurboWindows 65 PolyXREF—One Language 105 35” Drive Kit 439 
C Tools Plus 134 ; PVCS Version Control Sys. 319 
EXEC Program Chainer 74. 386 Board (Avail. April) CALL All products available. PVMEM Virtual Mem Mgr. 144 True Basicw/Converter 105 
Pascal Tools 98 True Basic w/Converter/ 
Pascal Tools 2 78 PC/Forth 114. Peeks nPokes 38 All products available. RunTime 189 
Pascal Tools & Tools 2 434 PC/Forth Plus 204 Inside Track ie Advanced String Library 42 
Runoff Text Formatter 44  Adv.Color Graphics Support MACH 2 62 All products available. = Asynch Communication 
Turbo Asynch Plus 78 75 Stay-Res 79 Support 42 
Turbo Power Tools Plus 78 Enhanced Graphics Support Cobol 829 BasicA Converter 42 
View Manager—C 195 154 QuickBasic 2.0 65 Btrieve Interface 42 
View Manager—Pascal 495 8087 Support 75 Basic Interpreter (XENIX) 215 RM/Cobol (XENIX) 975 Developer's Toolkit 42 
Interactive Symbolic Debugger C Compiler 282 RM/Fortran (XENIX) 589 Formlib 42 
Reflex 97 75 Cobol Compiler 435 RM/Cobol 615 Hercules Graphics Support 42 
Reflex Workshop 47. Native Code Optimizer 154 CobolCompiler (XENIX) 619 RM/Cobol 8X ANSI 85 875 Sorting & Searching 42 
Reflex & Reflex Workshop 141. PCTERM 75 Cobol Tools 199 RM/Fortran 379 RunTime Module 99 
Turbo Database Toolbox 47. Software Floating Point 75 Cobol Tools (XENIX) 299 
Turbo Editor Toolbox 47 Fortran Compiler 207. Complete XENIXSystem 1049 1-Debug 52 
Turbo Gameworks Toolbox 47 © Compiler 289 Fortran Compiler (XENIX) 559 XENIXDevelopment System Turbo Extender 65 
Turbo Graphix Toolbox 47 CCompilerw/Library S.C. 544 LISP 159 519 Turbo Power Utilities w/source 
Word Wizard 47 CXREF Generator 38 Macro Assembler 94  XENIX Operating System 519 79 
Turbo Lightning 65 CXREFGeneratorw/S.C. 147 Bus Mouse 119 XENIX Test Processing Turbo Power Utilities no source 
Turbo Pascalw/8087&BCD 65 C-Sprite 135 Serial Mouse 129. Package 149 49 
Turbo Prolog 64 Curses Screen Mgr. 93 Sort 134 — Lyrix 479 
Turbo Tutor for Pascal 57. Curses Screen Mgr. w/S.C. 181 muMath & muSimp 189 Networks for XENIX 519 Operating System Toolbox 77 
Word Wizard &TurboLightning dBC 186 Pascal Compiler 184 SCO Professional 685 PCNXOperatingSystem 77 
98  dBCw/Source Code 369 Pascal Compiler (XENIX) 429 PCVMS 77 
Turbo Pascal-Macintosh 71 LMK Make Facility 144 Tech. Ref. Encylopedia 99 Btrieve ISAM Manager 189 XTC Text Editor with Source 77 
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Cl-86 Plus by Computer and Raima. Lete's C with Source Debugger be in resalable condition. 
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Optimizing Integer 


Multiplications by 
Constant Multipliers 


stant multiplier can occur fre- 


Ee multiplication by a con- | 


quently in high-level language C 
programs. Besides the explicitly cod- ‘ : 
ed multiplications, the compiler | 


must generate multiplication instruc- 


To address an array element, the | 
compiler forms code to multiply the — 


array index by the size of an array 


element (a constant). If the array ele- 
ments are simple data types (bytes, 
words, and so on) then the multipli- 
cation is often done as a shift left be- 
cause the size of the element is a 
power of 2. Some of the more power- 
ful processors (Intel 80386, Motorola 
68020, National 32016, and so on) pro- 
vide scaled-indexed addressing 
modes that incorporate the appropri- 
ate shift as part of the address calcula- 
tion. 

If the array element is not a simple 
type, however, the multiplication 
must be done explicitly. Multiply di- 
mensioned arrays require a multipli- 
cation for each index ‘except, per- 
haps, for the last one, which can be 
done with a shift). 

Multiplication is a time-consuming 
operation, even on those processors 
that have multiplication instructions. 
Table 1, right, shows the execution 
times, in clock cycles, for several 
types of instructions, including mul- 
tiplication, on some modern micro- 
processors. The 68000, for example, 
requires about 70 clocks for a 16-bit 


a 
Robert D. Grappel, 28 Buckmaster Dr., 
Concord, MA 01742. Robert Grappel 
has a Ph.D. in solid-state physics from 
Ohio University. He is currently a con- 
sultant involved in the design of new 
air-traffic control systems. 
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_ Some — 
multiplications 
can be sped up 


__ by ‘unrolling’ the 


tions as part of each array reference. | 


calculation. _ 


register-to-register multiplication in- 
struction, compared to about 8 clocks 
for a 32-bit register-to-register addi- 
tion or subtraction. A 32-bit register 
shift requires about 6 clocks plus an 
additional 2 clocks per shift position. 
Clearly, the 68000 can do several 
adds, subtracts, and shifts in the time 
it takes to perform one multiplica- 
tion. 

Indexing an array (without artifi- 
cially limiting the size to 64K) re- 
quires a 32-bit multiplication, which 
neccessitates at least two 16-bit multi- 
plications and an addition on the 
68000 along with some logic. Because 
this 32-bit multiplication is likely to 
be done as a run-time subroutine, 
there is often an additional setup and 
calling overhead, too. (The 16-bit mul- 
tiplication of the Intel 80286 is suffi- 
cient to address an entire memory 
segment.) Thus, there is room for a 
compiler to fabricate an optimized 
sequence of additions, subtractions, 
and shifts in place of a multiplication 
on any of these processors. 







Table 1: Timing for several basic arithmetic instructions (clock cycles) 





Unrolling the Loop 

Computers multiply numbers using 
some variation of the following 
algorithm: 


1. Clear work register Rw, which be- 
comes the product. 

2. If the low-order bit of the multipli- 
er is a 1, add the multiplicand to Rw. 
3. Shift the multiplier right one bit 
position. 

4. If the multiplier is 0, stop (product 
in Rw). 

5. Shift the multiplicand left one bit 
position. 

6. Go to step 2. 


It is apparent that the computer per- 
forms multiplication as a sequence of 
shifts and additions—step 2 is an ad- 
dition; steps 3 and 5 are shifts. If the 
multiplier is a constant, the algo- 
rithm can be “unrolled” into a se- 
quence that includes only adds and 
shifts. This sequence is called a “star- 
chain” sequence because the result of 
each step is used immediately in the 
next step—no intermediate stores are 
required. The sequence requires 
only two registers— the original mul- 
tiplicand and the work register in 
which the product is formed. Consid- 
er the following examples, in which 
the notation R1 indicates the multipli- 
cand, <<= n means shift left n bit 
positions, and + = fi means add the 
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multiplicand: 


Ri”) 10: 

1 Rw=ARl 

2 Rw<<=1 
3 Rwt+=Ri1 


4 Rw<<=2 
5 Rwt+=R1 


Ri’*'7: 

1 Rw=Ril 

2 Rw<<=1 
3 Rwt+=Ri1 
4 Rw<<=1 
5 Rwt+=R1 
6 Rw<<=1 
7 Rwt+=Ri1 





Note that the shifts and additions al- 
ways come in pairs. Note, also, that 
there are as many shift-add pairs as 
there are one bits in the multiplier. 
This implies that the worst-case se- 
quence will have as many shift-adds 
as the bit width of the multiplier. 

You can generate shorter se- 
quences by using shift-subtract as 
well as shift-add pairs. If the notation 
2 n indicates 2 to the power n, you 
can write ((2 A) - 1) to denote a bina- 
ry integer with n 1s in a row (for ex- 
ample, 8 - 1 = 7). Hence, the se- 
quence shown above can_ be 
shortened to: 
















Ri? 7: 

1 Rw=Ril 

a Rw <<=3 
3 Rw-—-=RI1 


Here one shift-subtract replaces 
three shift-adds. The worst Case is 
now alternating 1s and 0s in the mul- 
tiplier, requiring at most one-half the 
number of sequence steps. 

A further improvement can be 
made in the algorithm. Some num- 
bers (such as 55 and 119) have a series 
of 1s, then a Single 0, then another 
series of 1s (119 = 1110111 binary). 
The algorithm would generate a 
shift-subtract, then a shift-add by one 
place. Here is the sequence for 119: 


R1* 119: 

Rw = R1 
Rw <<=3 
Rw -= Ri 
Rw <<=1 
Rw += R1 
Rw <<=3 
Rw -= Ri 


NOn fh WO we 
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#include stdio.h -._. 

/*Programto generatea "Star-chain" sequence to replace 
multiplication bya positive integer constant witha 
series of add, subtract, and shift-left instructions. 
Assumes two machine "registers". Instructions are 
formed ona temporary stack, then output. Astack 
element's magnitude is the shift amount, the sign 
indicates subsequent add (plus) or subtract (minus). */ 


long mult; /* 32-bit signed constant multiplier */ 
int flag, cnt, stkptr,stacki 16], last.cnt, last shift ts: 


int trim_trailing(one_zero) int one_zero; 


{ 


antc: 
for (c=0; ((mult € 1) = one_zero); c++, mult ))=1); 
returnc:; 

} 

main({ ) 


{ 


stkptr = 0; /* init. stack pointer */ 
printf("\nenter integer multiplier"); scanf("%d", mult); 
if (mult ) 0) 
{ 
last_cnt = 0; 
last_shift = trim_trailing(0);: /*cuttrailing0's */ 
while (1) 
{/* decompose "mult", build stacked instructions */ 
ent = trim_trailing(1); /* count low-order 1'5 */ 


if (cnt ) 1) 

{/* more than 1 bit, use shift-subtract */ 
flag = 0; : 
if (last_cnt == 1) 


/* shiftk, sub, shift 1, add --) 
shiftk+1, sub */ 
/* overwrite last entry */ 
stack[stkptr - 1] = -(cnt+1 ); 
else 
Sstack[stkptr++] =-cnt:; 


} 


/* will need another shift-add */ 
else flag = 1; 


7* "mult" fully decomposed, time to output */ 
if (mult == 0) break: : 


/* count low-order zeros */ 
last_ent = trim_trailing(0) + flag; 
Stack[stkptr++] = last_cnt; /* Shift-adqd */ 


} 


/*now output code fromstack */ 


print("\nRw = R1") ; /* load working register */ 
while (stkptr ) 0) 


ts = stack[--stkptr] ; 7* get top stack element */ 
if (ts (0) printf("\nRw ((= 4d \nRw -= R1",-ts)- 
else printf("=\nRw ((=4d \nRw 7 RI" ts): 


} 


S (last_shift != 0) printf("\nRw ((= aa", last_shift)-; 


else 
printf("\=\nRw = 0") ; 7*® special case for mult = 0 «/ 


} 


Code Example 1: The star-chain algorithm in C 
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INTEGER MULTIPLICATIONS 
(continued from page 35) 


Steps 2 through 5 can be combined 
by incrementing the shift count in 
step 2 and omitting steps 4 and 5, giv- 


ing the following sequence for Ai * 
119: 

RE 119: 

1 Rw=Rl1 

2 Rw<<=4 

>» Rw -= Rl 

4 Rw <<=3 

5- Rw-= Rl 


This sequence (32-bit operands) 
would require about 46 clocks on a 
68000, which is faster than a single 
16-bit multiplication. It would re- 
quire five words of code, as com- 
pared to the two or three words re- 
quired for a subroutine call. It seems 
clear that star-chain sequences can 
provide a way to readily optimize 
multiplication by a constant. 


An Actual Implementation 
The C program shown in Code Exam- 
ple 1, page 35, implements the star- 
chain algorithm. It prompts the user 
for the multiplier (which must be 
positive) and prints out the star-chain 
sequence. It would be easy to convert 
the program to generate code steps 
for use in an optimizing compiler. 
The program works in two steps: 
the first step builds the sequence ona 
last-in, first-out stack; the second step 
outputs the sequence from the stack. 
Note that, because the multiplier is 32 
bits long, the stack need only hold 16 
elements; there is no danger of over- 
flow. Each stack element holds a 
shift-add or shift-subtract. The en- 
coding uses the sign of the stack ele- 
ment to indicate shift-add (plus) or 
shift-subtract (minus). The magni- 
tude of the stack element is the shift 
count. The function trim_trailing is 
used to count the number of low-or- 
der Os or 1s in the multiplier. Note 
that, as written, mult must be a global 
variable because trim_trailing oper- 
ates on it. The variable flag is used to 
signal the shift-subtract optimization. 
The program shown works only 
for positive multipliers, which is al- 
ways the case in array addressing. To 
make it handle negative multipliers, 
simply call it with the absolute value 
of the multiplier and then output a 
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‘negate’ instruction. 

The sequences that this program 
produces are not unique. For exam- 
ple, A1 * 119 can be written: 


R1* 119: 

1 Rw= Rl 

2 Rw<<=83 
3 Rw-= Rl 
4 R1= Rw 

5 Rw<<=4 
6 Rwt+=Rl1 


This sequence is derived by factor- 
ing 119 = 7 X 17. Steps 1 through 3 
are a multiplication by 7, and steps 4 
through 6 multiply by 17. The alter- 
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Listing One (Text begins on page 16.) 


/* Listing one */ 

/* Subroutines for converting a pixel image 
to a quadtree and output the quadtree as 
locational codes 


Written by: Ronald G. White 
External routines: 
px2quad - only entry point 
*/ 


#include <stdio.h> 


/* Define structure for each node */ 
typedef struct qnode { 
struct qnode *child[4]; /* pointers to each child */ 


struct qnode *next; /* used during output */ 
int color; 

int ntype; /* see below for types */ 
int locode; /* location code */ 


} QNODE, *PNODE; 


/* Node types: */ 
#define LEAF 1 /* no children */ 
2 /* color of >2 kids */ 
3 


/* color irrelevent */ 


#define BLEND 
#define WASH 


extern getpix(); /* return pixel color at given posn */ 
extern putllc(); /* output location code and color */ 


static int toplevel; /* top level of tree (root node) */ 


px2quad (size) 

int size; 

/* entry point for these routines. Control routine to 
create a quadtree from the pixel image and output it 
as locational codes 


input: 
size - size of the image rounded up to nearest 
power of two 
xf 


PNODE crtnode(), proot; 


/* Create the root node */ 
proot = crtnode(); 


/* Calculate the toplevel number */ 

toplevel = 0; 

while (size > 1) { 
toplevel+t+; 
size >>= 1; /* divide by two */ 


} 


/* Build the quad tree */ 
proot->locode = 1; 
addnode(proot, toplevel); 


/* Output it as location codes */ 
outtree (proot); 


} 


static PNODE crtnode () 
/* create a quadtree node and initialize it 


output: 
returns a pointer to the node 
ef 
{ 
int i; 
PNODE newnode; 


/* Get space for it */ 
newnode = (PNODE) malloc (sizeof (QNODE) ); 
if (newnode == NULL) { 
/* Something went wrong */ 
fprintf(stderr, 
“crtnode: malloc failure; unable to continue) ; 
exit (1)? 
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} 


/* Initialize it */ 
for (1 =°G} tos. 67 727t)-4 
newnode->child{i] = NULL; 

} 
newnode->color = 0; 
newnode->ntype = LEAF; 
return (newnode) ; 

} 


static addnode(pnode, level) 

int level; 

PNODE pnode; 

/* add a new node to the quad tree 
If the node is not at the bottom level, four child 
nodes are created and added below the current node. 
Otherwise the node color is set to that of the 
corresponding pixel. 


input: 
pnode - pointer to the current node 
level - level number of the current node 
wf 
{ 
1nt..is 


int newlevel; 
PNODE crtnode({), newchild; 


/* if this node is not at the bottom level, 
* add four children below this node 
-/ 
if (level > 0) { 
newlevel = level - 1; 
for fi. = 'O;; 1 <2 49 T9*) = 1 
newchild = crtnode(); 
pnode->child[{i] = newchild; 
newchild->locode = (pnode->locode << 2) + i; 
addnode (newchild, newlevel); 
} 


/* Remove any unnecessary children */ 
condense (pnode) ; 


/* bottom level; get actual pixel color */ 
} else { 
pnode->color = getcolor (pnode->locode) ; 
} 
} 


static condense (pnode) 

PNODE pnode; 

/* examine children of the current node and 
remove any that are unnecessary 


input: 
pnode —- pointer to current node 
af 


int colcnt[4]; 
int colors[4]; 
int Ae FF 

int maxclr = 0; 
int nkids; 

int: child¢ir: 
PNODE pchild; 


/* Initialization */ 

for {i = 0; i < 4; i++) { 
colcnt[{i] = 0; 

} 


/* Determine colors of children */ 
for (i = O; i < 437 i++) { 
pchild = pnode->child[i]; 
if (pchild->ntype == WASH) { 
/* this child has no color */ 
continue; 


} 


childclr = pchild->color; 


(continued on next page) 
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G9 BY couttarent 
Power Tools 


TOOL BOX 1 
cat cp expand fold more mv newer 
page rm unexpand 


TOOL BOX 2 
diff fgrep head od see tail tee uniq 


SYSMAKE 
with advanced features from the 
new UNIX Version 8 


For MSDOS and CP/M 


I/O redirection ¢ wildcard expansion 
exclusions ¢ full documentation 


NIRVONIGS ins 


PO. Box 5062 
Plainfield, NJ 07061 (201) 561-2155 


Trademarks — UNIX: Bell Labs, MSDOS: Microsoft, CP/M: Digital Research 
Circle no. 331 on reader service card. 


SCIENTIFIC/ENGINEERING 


GRAPHICS TOOLS 
for the IBM PC 


FORTRAN/Pascal tools: GRAFMATIC (screen graphics) 


and PLOTMATIC (pen plotter driver) 


These packages provide 2D and 3D plotting capabilities 
tor programmers writing in a variety of FORTRAN/Pascal 
environments. We support MS, R-M and IBM FORTRAN 
and more. PLOTMATIC supports HP or Houston Instru- 
ment plotters. 


Don’t want to program? Just ask for OMNIPLOT! Menu- 
driven, fully documented integrated scientific graphics. 
Write or call for complete information and ordering in- 


structions. 


GRAFMATIC — PLOTMATIC — OMNIPLOT |S] & [P] 


COMCENTRAT|ON 


TIME (sec) 


Microcompatibles, 301 Prelude Drive, Silver Spring, MD 20901 


(301) 593-0683 


Circle no. 286 on reader service card. 
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Listing One (Listing continued, text begins on page 16.) 


a2 


/* loop through colors found so far: 
do we have a match? 
note: we'll always "break" out of 
this loop because there can be at 
most four different colors. 

*f 


for (j} = 0; 4 < 43 4+t) { 
if (colcnt(4] == 0) { 
/* new color */ 
colors[{j] = childclr; 
colcnt[{j] = 1; 
break; 


} else if (childclr == colors[4]) { 
/* existing color */ 
colcnt [j]++; 
if (colcnt(j]) > colcnt(maxclr]) { 
maxclr = 4; 
} 
break; 


} 


/* Set node color */ 
pnode->color = colors(maxclr]; 


/* Remove redundant children -- if more than 
one child node has the same color as the 
current node, then it contains redundant 
information. If the redundant node is a 
leaf node, it can just be removed. If it 
is not a leaf node, mark it as a WASH type 
and ignore it during output. 

ay 


nkids = 4; 
if (colcnt[{maxclr}] > 1) { 
/* Loop through the four children */ 
for (i= Os 1 <. 43 t++}.{ 
pchild = pnode->child{i]; 


/* If child node is already a WASH, 
nothing else can be done to it 
ay 
if (pchild->ntype == WASH) { 
continue; 


} 
childclr = pchild->color; 


/* Check for color match */ 
if (childclr == pnode->color) { 


/* If child is leaf, release */ 

if (pchild->ntype == LEAF) { 
relnode (pchild); 
pnode->child[{i] = NULL; 
nkids--; 


/* otherwise, mark it as a WASH */ 


} else { 
pchild->ntype = WASH; 


} 


} 


/* Reset node type -- a LEAF node has no children */ 
if (nkids == 0) { 
pnode->ntype = LEAF; 


/* A BLEND node has a color that represents some 
missing children, but still has some other 
children that are a different color. 

a 

}celse Lf feolcnt:[maxcis) :> iy 4 

pnode->ntype = BLEND; 


/* A WASH node is necessary in the quadtree because 





it points to existent children nodes, but will not 
be output because its information (i.e. color) is 
available either in child nodes or parent nodes. 

*/ 

} else { 

pnode->ntype = WASH; 
} 
} 


relnode (pnode) 
PNODE pnode; 
/* release a node 


input: 
pnode - pointer to node to release 
7 
{ 
free((char *) pnode); 


} 


static getcolor (lcode) 

int lcode; 

/* get the color of the pixel corresponding to a 
bottom level node whose position is given by a 
locational code 


input: 
lcode - locational code of bottom level node 


output: 
returns pixel color 

«f/f 
{ 

Ane odie: 

int col =-0; 

int level; 

int row = 0; 

int shift; 


/* Convert node locational code to pixel row & column 
by looping through direction codes in locational 
code for each level from top to bottom 

af 
for (level = toplevel; level > 0; level--) { 


/* shift last row & col values left one bit */ 
col <<= 1; 
row <<= 1; 


/* calculate the position of the direction 
code for this level and extract it 
*/ 
shift = (level - 1) * 2; 
dir = (lcode >> shift) & 0x3; 


/* increment the col value if quadrant is in 
left half, i.e. NE or SE child 
*/ 
LE {die eo Gee aT if 
col++; 


} 


/* increment the row value if quadrant is in 
bottom half, i.e. SW or SE child 
*f 
if (dir == 2 || dir == 3) { 
LOwt+t 7 
} 
} 


/* return pixel color */ 
return (getpix(col, row)); 


} 


static outtree (proot) 

PNODE proot; 

/* output the relevant nodes in the quad tree 
* 


* proot - pointer to the root node 
SP 


{ (continued on page 44) 
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Clarify your source code 


C, BASIC, Pascal, (BASE, Modula-2 programmers: be more productive 
with two new utilities from Aldebaran Laboratories 


Source Print” 


organizes your source code, simpli- 
fies debugging, and makes documen- 
tation a snap! It lists one or more 
source files with informative page 













150 FOR INDX = 1 TO 100 
160 IF TB(INDX) = O THEN X = 5 

170 C = 50: WHILE K <= 1000: TB(K) 
180 GOSUB 2000 

190 XT(C) = X: T2(C) 
200 NEXT INDX 


= 0: K = K + X: WEND 


“Occasionally, a utility 


=i UC S64 J 










150 ;---FOR INDX = 1 TO 100 
16 IF TB(INDX) = 0 THEN X = 5 


comes along that makes a 


170 








Cc = 50 
—WHILE K <= 1000 
Ie TB(K) = 0 
= + 


programmer’s life much hedciae: andor. Before L 
: tional line numbers, 
easier. SOURCE PRINT while dierins a mo int 
is such a program. invaluable features: S  atarsetiee303) 
3 The Index | | pte: 4 Wed 12-31-86 07:22:03 INDEX (Cross Ref) 

It contributes to the (Cross-Reference a phan 

’ - list) Saves you time inrecord 4.191 9=396 19.825 19=826 
programmer’s job by iy shawinmouaatly iis BSE 





53.2293 
54.2331 
54.2354 


53=2309 
54.2332 
54.2364 


53=2319 
54.2336 
54.2365 


53.2325 
54=2346 
54.2366 


where variables are ins 
used and where functions, pro- $ 7 90 
cedures, and routines are called. 
Locations where new 
values may be assigned to 
variables are shown, making it easy to track down that 
mysterious value change. 
Structure Outlining solves the problem of hard-to- 
see nested control structures by automatically drawing 
lines around them. , 
Automatic Indentation of source code and listings 
reduces your editing time and ensures indentation accuracy. 
Plus... Source Print generates a table of contents 
listing functions and procedures. Keywords can be printed 
in boldface on most printers. Multi-statement BASIC lines 
can be split for readability. Functions and procedures can 
be drawn by name from one or more source files to forma 


organizing code into a 


intext 4.193 9=395 
43=1820 45=1902 


43.1796 43.1815 


Index 





legible format and by 
helping to organize the 
documentation and 
debugging process.” 


— PC Magazine 
Sept. 16, 1986 





Source Print and Tree Dia- 


grammer both have easy-to-use new file. 
menus with point-and-shoot file « - 
selection, and let you search for ‘Tree Diagrammer Tue 01506587 00:28:44 


files containing a given string. 
For IBM PC and compatibles 
with 256K. 


Join thousands of program- 
mers who are working more 
efficiently using Source Print 
and Tree Diagrammer. Order 
these indispensable tools today. 
We ship immediately, and 
there’s no risk with our 60-day 
money-back guarantee. Order 
both and save. Only $115.00. 


shows your program’s overall organization at a 
glance. Ordinary program listings merely display 
functions, procedures, and subroutines sequen- 
tially, but do not identify the relationships be- 
tween these routines. Our revolutionary new 
Tree Diagrammer automatically creates an 
“organization chart” of your program showing the 
hierarchy of calls to functions, procedures, and 
subroutines. Recursive calls are indicated and 
designated comments in the source code 
will appear on the chart. 

Tree Diagrammer helps you organize your 
program more logically. And you’ll be amazed at 


how easy it is to debug when you $5 500 


see how your routines interact. 








800-257-5773 dept.53 


In California: 


800-25 7-5 77/4 Dept. 53 


MasterCard, VISA, American 
Express, COD. Add $5 for shipping. 


Source Print and Tree Diagrammer are 
trademarks of Aldebaran Labs. dBASE is 
a trademark of Ashton Tate. 


Aldebaran Laboratories 3339 Vincent Rd. Pleasant Hill,CA 94523 415-930-8966 


YES! Rush INE OH Source Print @ $75. 


_] Tree Diagrammer @ $55. 
(] Both $115. Ship/Handling $5. For CA add 6% tax 














Total 
Name 
Company 
Address 
Cy llc Ll lL Zip 
(JCheckenclosed []VISA []MasterCard [] American Express 
Card # trp ete. 
Signature Phone # 5C 





Circle no. 350 on reader service card. 


Release the Power 
of Fortran, C and Pascal 


A library of over 120 Assembler routines transforms 
FORTRAN, Pascal and C language compilers into a flexible, 
responsive language for the microcomputer environment. 
Existing mainframe code may be converted with ease, sav- 
ing time and money. With the powerful Assembler sub- 
routines of NO LIMIT™, mainframe users can fully realize 
the advantages of microcomputer technology. 


* Complete Communications 

¢ File/Directory Management 

¢ Full Screen/Keyboard Control 

¢ Extensive Graphics Applications 
Character/String Manipulation 

¢ System Information 

¢ And much more! 


NO LIMIT™ is available for $129, with no license fee, and 
supports MS/FORTRAN/Pascal/C, IBM _ Professional, 
Ryan-McFarland, and Lahey F77L compilers. 


M-:E-F 
Environmental, 
Inc. 

P.O. Box 26537 


Austin, Texas 78755 
512/251-5543 
©Trademark of Microsoft, Inc., IBM 


Corporation, Ryan-McFarland and 
Lahey, Inc., respectively 





Circle no. 375 on reader service card. 
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C and Pascal 
for MS-DOS 


MetaWare Incorporated announces the first 
available C and Pascal compilers that generate 


protected-mode 80386 code 


for running on any 80386 machine that runs MS-DOS (eg., the 
Compaq Deskpro 386). The compilers are functionally identical to 
the well-respected 8086/286 MS-DOS High C™ and Professional 
Pascal™ compilers that have received outstanding reviews in such 
magazines as Computer Language, Dr. Dobb's, and PC Tech Jour- 
nal. Our compilers are currently used by industry leaders such as 
Ashton-late, AutoDesk, ANSA, and Lifetree. Now you can get them 
generating 80386 code. 


If you have an application that requires the large 32-bit address 
space and the full 32-bit registers of the 80386, expand your mar- 
ketplace to the rapidly growing supply of 80386 MS-DOS machines. 
Contact MetaWare for your 80386 software solution today! 
(408) 429-6382, telex 493-0879. 


Durable Software Constructed Automatically ™ 


Mats AN Iara 


INCORPORATED 
903 Pacific Avenue, Suite 201 ¢ Santa Cruz, CA 95060-4429 
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Circle no. 95 on reader service card. 
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Listing One 
(Listing continued, text begins on page 16. ) 
PNODE outnode(), pcur, plast; 


/* Set up the linked list with root node */ 
pcur = proot; 

plast = proot; 

proot->next = NULL; 


/* Output each node on the linked list in order 
until there are no more nodes on the list 
ay 
while (pcur != NULL) { 
plast = outnode(pcur, plast); 
peur = pcur->next; 


J 


Static PNODE outnode(pnode, plast) 

PNODE pnode, plast; 

/* output the locational code and color index for a 
node and put its children on the list 


input: | 
pnode - pointer to node to output 
plast - pointer to last node on the linked list 


output: 
returns pointer to new last node on linked list 
¥} 
{ 
int .i; 
PNODE pchild; 


/* If node is not a WASH, output it */ 
if (pnode->ntype != WASH) { 
putlcc (pnode->locode, pnode->color); 


} 
/* Put the node's children on list */ 
if (pnode->ntype != LEAF) { 
for {i= 03 4: <“49 -A+F) 4 
pchild = pnode->child[i]; 
if (pchild != NULL) { 


plast->next = pchild; 
plast = pchild; 


} 


/* Return new last pointer */ 
return (plast); 


End Listing One 


Listing Two 


/* Listing two */ 

/* Subroutines for displaying an image from a quadtree 
input as locational codes 
Written by: Ronald G. White 


External routines: 
qdisp - only entry point 


*/ 


#include <stdio.h> 


extern getnxn(); /* read in next node's data */ 
extern filrec(); /* fill rectangular region */ 
static int orgsize; /* original image size */ 
qdisp (size) 

int size; 


/* main entry point for the display of a quadtree 


* 
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*<-Srout’s 
* size - size of the original image 
Ry 


{ 
int lcode, color; 
int corner[2]; 
int side; 


/* Make the image size global */ 
orgsize = size; 


/* Read and display each node */ 
while (getnxn(&lcode, &color) != EOF) { 


/* Convert loc code to corners, side of square */ 
square(lcode, corner, é&side); 


/* Fill in the square */ 
filrec(corner[(0], corner{1}], side, side, color); 


} 


square(lcode, corner, pside) 

int lcode; 

int corner[2]; 

int *pside; 

/* convert quadtree locational code to corner and side 
of the square represented by the corresponding node. 


input: 
lcode - locational code for this node 


output: 
corner - upper left corner of quadrant 
pside - the size of the quadrant in pixels 
ey 
{ 
int dir; 
int shift; 


corner[(0} = corner[1] = 0; 
*pside = orgsize; 


/* Find the begining of the code */ 
for (shift = 30; 
((lcode >> shift) & Oxff) == 0; shift -= ay 


/* Convert node locational code to corner row & 
column by looping through direction codes in 
locational code for each level from top down. 

ai 

for (shift -= 2; shift >= O; shift -= 2) { 


/* The side of the square is reduced by a 
factor of two each level down. 
ff 
*pside >>= 1; 


/* extract the direction code */ 
dir = (lcode >> shift) & 0x3; 


/* increment the col value if quadrant is 
in left half, i.e. NE or SE child 
*/ 
if (dir == 1 || dir == 3) 
corner[(0] += *pside; 


} 


/* increment the row value if quadrant is 
in bottom half, i.e. SW or SE child 
*/ 
if (dir == 2 || dir <= a} 4 
corner[1] += *pside; 
} 


End Listings 
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What if each change 
you made to your |. 
program was ready to ~ 
test in seconds instead 
of minutes? 


“The SLR tools will change the 
way you write code. I don’t use 
anything else.”, Joe Wright 


RELOCATING MACRO ASSEMBLERS @ Z80 e 8085 e HD64180 
e Generates COM, Intel HEX, Microsoft REL, or SLR REL 
e Intel macro facility 
e All M80 pseudo ops , 
e Multiple assemblies via command line or indirect command file 
e Alternate user number search 
e ZCPR3 and CP/M Plus error flag support, CP/M 2.2 submit 
abort 
e Over 30 user configurable options 
e Descriptive error messages 
e XREF and Symbol tables 
e 16 significant characters on labels (even externals) 


e Time and Date in listing 649 O05 





e Nested conditionals and INCLUDE files 
e Supports math on externals 


requires Z80 CP/M compatible systems with at least 32K TPA 


___§ LR_Systems 


1622 N. Main St., Butler, PA 16001 
(412) 282-0864 (800) 833-3061 
Circle no. 78 on reader service card. 





Publication Quality 


Scientific Graphics 
CC} Over 100 C routines make 






scientific plotting easy 






> linear, log, & polar plots 


f i ya -> bar charts & Smith charts 
0 - contour plots with labels 








> 3-D curves, 3-D surfaces 

-> 4 curve types, 8 markers, errorbars 
-> 14 fonts, font editor 

> unlimited levels of SUP®°scripts 


> 4096 x 3120 resolution in 16 colors 

a 1S on EGA, Tecmar, Sigma boards 
ri ~ zoom, pan, window and merge plots 

- high resolution printer dumps 












SOURCE INCLUDED for persona/ use only 
$350. Demo $8 


| 256k, IBM, AT&T, Corona POs, (OOS. 2.x. tox 







Most boards, printers, and plotters supported 
Microsoft, Lattice, DeSmet, Aztec, C86 compilers 
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Scientific Endeavors Corporation 
Route 4, Box 78 Kingston, TN 37763 (615) 376-4146 






Circle no. 210 on reader service card. 
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THE PROGRAMMERS SHOP 


helps save time, money and cut frustrations. Compare, evaluate, and find products. 





RECENT DISCOVERY 


Sapiens V8 - virtual memory management 
for C programmers on PCs provides 
8M workspace. 64-bit emulation, 
virtual stack library and heap. 
Link to MS, Lattice, Aztec. PC $ 300 


Al-Expert System Dev t 


Arity System-incorporate with C 

programs, rule & inheritance MS $ 259 
Auto-Intelligence - by 

Intelligence Ware PC $ 749 
Experteach - Powerful, no limit on 


memory size. Samples PC $ 349 
Intelligence/Compiler - rules, 

frames PC $ 749 

Al-Lisp 
Microsoft MuLisp 85 MS $ 179 
PC Scheme LISP - by TI PCTS. 85 


TLC LISP’- classes, compiler. MS $ 225 


TransLISP - learn fast MS_ Call 
TransLISP PLUS 

Optional Unlimited Runtime $ 150 
PLUS for MSDOS $ 179 


Others: IQ LISP ($155), UNX LISP ($59), 
IQC LISP ($269), WALTZLISP ($139) 


Al-Prolog 


APT - Active Prolog Tutor - build 

applications interactively PC.3> 65 
ARITY Standard - full, 4 Meg 

Interpreter - debug, C, ASM PC $ 319 
COMPILER /Interpreter-EXE PC $ 699 

With Exp Sys, Screen - KIT PC $1129 
LPA MacProlog Complete - incremental 

compiler and an interpreter MAC $ 295 
LPA MicroProlog - intro MS $ 85 
Prolog-86 - Learn Fast, Standard, 

tutorials, samples MS $ 89 
Prolog-86 Plus - Develop MS $ 229 
TURBO PROLOG by Borland PC $ 69 


Al-Other 


METHODS - SMALLTALK has 
objects, windows, PC $0.9 
Q’NIAL - Combines APL with LISP. 
Source or binary. PC $ 349 
Smalltalk-80 - Xerox improved PC $ 995 


Smalltalk/V-graphics PC > 89 
AtariST & Amiga 
We carry full lines of Manx, 
Lattice, & Metacomco. 
Amiga - LINT by Gimpel Amiga $ 79 
Cambridge LISP Amiga $ 200 
Lattice C ST, Amiga $ 139 
Lattice Text Utilities Amiga $ 75 
Megamax - tight, full ST $ 200 


C Scape - capture Dan Bricklin’s, 
1-2-3, Turbo screens & more, convert 
to C. Plus full screen generation 
package - tiled, pop-up windows with 
scrolling, validation. Source PC $179 


PolyBoost - Run 2 to 10 times 
faster with software accelerator. 
Speeds disk access, screen display, 
keyboard input. re 


ON 


9 


National Accounts 


MIS, Engineering, and Research departments get 
special FREE consulting, product comparisons, 
reports, newsletters. Compare approaches to 
COBOL, C, Al. PURCHASING AGENTS - get 
help and special service finding products, negotiat- 
ing license agreements, with billing and more. 
Call 800-446-1185. 

Our Services: 
* Programmer’s Referral List * Dealers Inquire 
* Compare Products * Newsletter 
* Help find a Publisher * Rush Order 
* Evaluation LiteratureFREE + Over 700 products 
* BBS-7PM to7 AM 617-826-4086 + National Accounts Center 


Basic 


Basic Development System - for 
BASICA; Adds Renum, more. PC $ 105 
Basic Development Tools by 
Sterling Castle PC $ 89 
Basic Windows by Syscom PC $95 
BetterBASIC - all RAM, modules 
Structure. Full BASICA PC $ 129 
8087 Math Support PC 3. 
Run-time Module PC $ 169 
Better Tools - for Better Basic PC $ 95 
CADSAM FILE SYSTEM-full MS $ 69 
GoodBas - maintain code PE 3). 95 
LPI Basic - MS compatible UNIX $1100 
Prof. Basic -Interactive,debug PC $ 75 
8087 Math Support PC $ 45 
QuickBASIC V2.0-New interface PC $ 69 
TRUE Basic - ANSI PG; $119 
Run-time Module Pc = 129 


Macintosh COBOL - full MAC $ 459 
MBP - Lev. II, native MS $ 819 
Microfocus Professional Cobol PC $2295 
VS Workbench PC $3379 
Microsoft COBOL MS $ 439 
Microsoft Cobol Tools - xref, debugger 


w/source support. PC -$: 209 
Realia - very fast MS $ 819 
Ryan McFarland COBOL MS $ 649 

COBOL-8X MS $ 895 
Screenplay - by Flexus. 
Interactive screen mgmt. PG: $175 





Editors for Programming 


BRIEF Programmer’s Editor 
EMACS by UniPress - powerful, 
multifile, windows Source:$929 $ 299 
Epsilon - like EMACS, full 

C-like language for macros. PC $ 155 
KEDIT - like XEDIT PC $ 105 
Lattice Screen Editor - multiwindow, 
multitasking Amiga $ 89 MS $ 109 
PC/EDT - macros PC $ 250 
PC/VI - by Custom Software MS $ 109 
Personal REXX PC $ 109 
PMATE - power, multitask PC $ 119 
SPF/PC - fast, virtual memory PC $ 139 
XTC - multitasking PC: $2579 


C Libraries-Communications 


PC Call 


Asynch by Blaise PC ($2135 
Essential Comm Library PC $435 
With Debugger PC S$: 199 
Greenleaf Comm Lib. PC $ 139 


Multi-Comm - add multitasking, use 
w/Multi-C PC $ 149 
Software Horizons pack 3 PC $ 119 





RECENT DISCOVERY 


r-tree - report generation for 
ctree. Multiple file handling, fixed or 
variable length. Many built-in functions 
like Boolean, computational functions, 
string, date handling, numeric to 
string conversion. Layout control. 


Source in C. PC $249 
C Language-Compilers 
AZTEC C86 - Commercial PC $499 


C86 by CI - 8087, reliable MS $299 
Datalight C - fast compile, good code, 
4 models, Lattice compatible, Lib 


source. Dev’rs Kit PE S73 
HOT C - new, intriguing PC $ 85 
Lattice C - from Lattice MS $289 


Mark Williams - w/debugger MS $369 
Microsoft C 4.0- Codeview MS $279 
Wizard C MS $359 


C Language-interpreters 


C-terp by Gimpel - full K & R MS $229 

C Trainer - by Catalytix 

INSTANT C - Source debug, 
Edit to Run-3 seconds, .OBJs MS $379 


Interactive C by IMPACC Assoc. PC $225 
Introducing C-self paced tutorial PC $105 
Run/C Professional MS $179 
Run/C Lite MS $ 97 
C Libraries-General 
Blackstar C Function Library PC $ 79 
C Essentials - 200 functions M363 
C Food by Lattice-ask forsource MS $ 99 


C Scientific Subroutines - Peerless MS $135 
C Tools Plus (1 & 2) - Blaise PC $135 
C Utilities by Essential - Comprehensive 
screen graphics, strings, source. PC $137 
C Worthy Library - Complete, machine 
independent MS $269 
Entélekon C Function Library PF 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 
PforCe by Phoenix - objects Pe! $229 


C Libraries-Files 


FILES: C Index by Trio - full B + 
Tree, vary length field, multi compiler 


/File is object only MS $ 89 
/Plus is full source MS $319 
CBTREE- Source, noroyalties MS $ 99 


CTree by Faircom - no royalties MS $319 
dbQUERY - ad Loc, SQL- based MS $159 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 $155 
Source - Single user MS $425 


Source - Multiuser MS $845 
dBASE Tools for C PC $ 65 
dbc Isam by Lattice MS $179 
dBx - translator MS $319 

w/source to library MS $499 


Uniware Cross Development Tools 
include 68000 C compiler. Development 
Package with compiler, assembler, link 
editor, and utilities, 17 cross assemblers 
for Intel, TI, Motorola, Zilog, etc. - 
relocatable, macros. 


MS Call 





We support MSDOS (not just compatibles), PCDOS, Xenix-86, CPM-80, Macintosh, Atari ST, and Amiga. 


Circle no. 133 on reader service card. 





THE PROGRAMMERS SHOP 


provides complete information, advice, guarantees and every product for Microcomputer Programming. 


RECENT DISCOVERY 


















Order before 3/31/87 and mention this ad The Documentor - for dBASE program 
for these special prices. flow chart, ee res, oe documen- 
tation, variable/field concordance, 
: ee eae se hierarchy charts. Macros, searches, 
Insight 2 + Expert Shell $ 485 $ 389 §$ 
LPA MicroProlog Professional $ 395 $ 339 $ 289 configure options. MS $ 295 
Arity Compiler with Expert 
Shell Interpreter $ 795 $ 699 $ 589 Other Languages 
$ 395 $ 309 $ 259 
Expert System Shells and professional language im- ea, APL*PLUS/PC PC $ 469 
plementations, smart decision support packages make PC Easy $ 495 $ 439 $ 349 CLIPPER-dBASE Compiler MS $ 429 
practical Al power in your applications, planning. Call 47 Gon cuttant Plus $2950 $2599 $1899 dBXL by Word Tech PC $ 129 
one of our Al specialists today. eis PET Coiipitet PC $ 719 
tran & Supporting MasterForth - Forth ’83 MACorPC $ 109 
C Support-Systems Microsoft MASM - faster | MS $ 98 
Basic-C Library by C Source PC $139 50:More FORTRAN - math, er Modula-2/86 Compiler by Logitech 
C Sharp - realtime, tasks. PC $600 source MS $419 w/ 8087 ($ 99),512K ($145). PC $ 62 
C ToolSet - DIFF, xref, source MS $ 95 ACS Time Series x Pasm - by Phoenix MS $ 109 
The HAMMER by OES Systems PC $149 — Forlib+ by Alpha tua PC Forth + - by Laboratory 
Lattice Text Utilities MS $ 89. MACFortran by Microsoft eiant hlicrdevaieiti PC $ 205 
Multi-C - multitasking Be $149 MS Fortran link to C_ -£ PC $115  SNOBOL4+ -greatforstrings MS $ 85 
PC LINT-Checker. Amiga $89 MS $107 — No Limit - Fortran Scientific ore aaah Turbo Edit/ASM- by Speedware PC $ 85 
SECURITY LIB-add encrypt to MSC, RM/Fortran . . 7 ? 
C86 programs. Source $229 PC $115 Scientific Subroutines - Matrix MS $139 Xenix-86 & Supporting 
Quickshell - script compiler PC $349 dase ys Alpha 5 an ee Basie - by Microsoft 239 
: : SRE TaD NAMIEY = TERE, Cobol - by Microsoft 
SASSI A aoe SLT alles Multilanguage Support Cobol Tools - by Microsoft $ 319 
C Power Windows by Entelekon PC $109 Fortran or Pascal - by Microsoft $ 439 
dBASE Graphics for C PC $69 — BTRIEVE ISAM MS $199 — MicroFocus Lev. Il Compact COBOL$ 795 
Curses by Lattice PC $ 89. BTRIEVE/N-multiuser MS $469 Panel $ 539 
ESSENTIAL GRAPHICS - fast PC $199 CODESIFTER - Profiler. MS $ 99 RM/Cobol $ 949 
GraphiC - mono version PC $217 HALO Graphics - 115 + devices. RM/Fortran | $ 549 
GraphiC ~ new color version PC $295 Animation, engineering, business. _ Xenix Complete System $1049 
Greenleaf Data Window PC $189 Any MS language, Lattice,C86 PC $209 Other Products 
w/source ‘we. Phe 3359 Informix - by RDS PC $639 
Multi- Windows - use w/ Multi-C PC $295 Informix 4GL - application builder PC $799 386 Assembler/Linker PC $ 459 
Screen Ace Form Master PC $195 Opt Tech Sort - sort, merge MS $119 ASMLIB - 170+ routines PC $ 129 
~ Hantin CSegeeen 11 Te PANEL MS $219 BSW Make-like UNIX make MS $ 85 
Windows for C - fast ‘ge PC $159 PolyLibrarian by Polytron MS $ 79 Compact Source Print PC 339 
Windows for Data - validation PC $239 PVCS Version Control MS $329 Dan Bricklin’s Demo Program PC $ 59 
ZView - Screen generator ney 9182. Make by Quills, MS $ 84 Brief - Customize BRIEF for dBASE 
Debuggers Rtrieve - Xtrieve option MS $119 development. with BRIEF $275. PC $ 95 
386 Deb PC $149 Screen Sculptor - slick, thorough, H Test/H Format - XT Fix PC $ 89 
ebug fast, BASIC, PASCAL. PC $ 95 Help/Control - on line hel PC $ 109 
Advanced Trace-86 by Morgan : : P 
Modify ASM code on fly PC $125 Xtrieve - organize database MS $199 Interactive Easyflow-HavenTree PC $ 129 
CODESMITH - visual modify ZAP Communications- VT 100 PC $ 89 Link & Locate - tools to work with 
: Intel and Tektronix project MS $ 329 
d te A bl re l : projects. 
CSPRITE data structures pc sing EEE LMK - like UNIX make MS § 139 
DSD87 - by Soft Advances PC $ 89. ~—- ALICE- learn Pascal, Turbo NacrOsan Vereew sR 66 
Periscope I - own 16K PC $239 compatible, interpreter PC $ 68 Software Development Kit PC $ 329 
Periscope II - symbolic, “Reset Exec - Chain Programs MS $ 79 MKS Toolkit - Unix, vi, awk PG alte 
Box,” 2 Screen PC $109 MetaWINDOW - graphics toolkit PC $115  PDisk - cache, tree PC $ 89 
Periscope II-X - software only PC § 85 MetaWINDOWS PLUS - PMaker - by Phoenix PC $79 
Pfix-86 Plus Symbolic Debugger enhanced PC $185  Polymake by Polytron MS $ 79 
by Phoenix - windows PC $229 Microsoft PASCAL - faster MS $189 PS MAKE by UniPress MS $ 79 
Showcase by Test Software PC “$135 MICROTEC PASCAL - 5 memory models, SECRET DISK by Lattice PC $ 89 
Software Source by Atron - iterators”, 65 bit 8087 strings MS $665 SOftEst - Manage projects. | MS $ 350 
Lattice, MS C, Pascal. Windows Pascal Esdender- ScGhes user Source Print - by Aldebaran PC $ 89 
single step, 2 screen ‘log file. MS $115 interface, toolbox MAC $ 65 S5¥nergy-Create user interfaces MS $ 375 
w/Breakswitch 3 $199 Pascal Pac with Tidy - formatter ~ _ Texsys - control source MS $ 89 
utilities ” PC $ 69 ao Rettig’s Library- dBASE PC $39 
| Pascal Tools - strings, n PC $109 ree Diagrammer POS 59 
Multi-Comm - Multitasking/user Pascal Tools 2 - by Blaise MS § 85 Visible Computer: 8088 Pe ee 
communications. Use with Cytek’s Pascal 2 - tight, fast MS $329 Circle no. 133 on reader service card. 
Multi-C; interrupt-driven, ROMable; TurboHALO - 150 routines, IBM Note: All pnices subject to change without notice 
XMODEM, ASCII or binary EGA, Hercules, more PC $ 85 Mention this ad. Some prices are specials. Ask about COD and POs. Formats: 
transfer. MS $149 3" laptop now available, plus 200 others. UPS surface shipping add $3/item. 





Call for a catalog, literature, advice and service you can trust 
HOURS 800-421-8006 YOUR S'RYICE'S Faputous: 


enticing; I really want 10 of them. . . 
8:30 AM - 8:00 PM EST. 











THE PROGRAMMER’S SHOP™ Keep up the good work.” 


5-D Pond Park Road, Hingham, MA 02043 — Dan Bredemeyer 
Mass: 800-442-8070 or 617-826-753] Bredemeyer 
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Fortran Support 


for 
IBM PC/XT/AT & Compatibles 


Listing Ten (Text begins on page 96.) 





Versions Available For: 1 #include <stdio.h> 
Microsoft, Supersoft, RyanMcFarland, i Sinclude <stdarg.h> 
IBM Professional, Lahey, & IBM 4 ferr( fmt ) 
Fortran. S char ‘*fmt; 
; 6 { 
Forlib- 

O lib Plus : /* ferr() is used for fatal error processing. It 
$69. 905 3 : x used just ar printf(). However, it exits 
ae @ program with 

Supports graphics, interrupt driven com- 10 * beinting Fre busca Ltn Seibg A nee Sk 
munication, program chaining, and file 11 * variable argument conventions here. 
handling/ disk support. A Fortran coded ae 7 
subroutine is included which will plot data 
oe the screen either in linear/linear, log/ = WEA ASL. ATS; 
inear, linear/log, or log/log on the a veeeae arora? 
: , é , ppro- 
priate grid. o CR fmt, args ); 


Strings & Things in 
$69.95 End Listing Ten 


Supports string maipulations, command Listi 
a : = : ing E 
line usage, DOS call capabilities, SHELL 8 leven 


generation and data transmission, BATCH 


file control, music generation, PEEKS and teens Faneee Ee? 
POKES, PORT access, and general register #define min (a,b) ((a) < (b) 2 (a) = (d)) 
manipulations. #define max (a,b) ({a) > (b) 2 (a) + (d)) 
e typedef unsigned char UCHAR; 
For- Winds 
89 9 #ifdef DEBUG /* For debu 
: gging, expands to it's argument when */ 
s define D(x) x /* DEBUG is true, otherwi 
Gives the Fortran programmer the capa- ae gee /* empty string. Sr es ake ss 
bility of generating up to 255 windows on eek nt tee 
the screen. Each window can be individually 
scrolled, moved, sized, generated, and apiece raed aaa te a ceane number on which we can set a line 
removed. Both color and monochrome type nt 
displays are supported. Full source code is ¢define MAXSTR 257 /* Maximum string width (this will limit both the 
supplied for customization. SM ee tee oe 
e e 
ACS Time Series #define MAXPAGE 511 /* Max page number which can be given with the 
* “"~9" command line switch 
“7 
$495. 00 ; #define MAXARGS 10 /* Max # of arguments in a macro */ 
This is a COMPLETE time series analysis #define MAXNEST 10 /* Max level of macro nesting */ 

; : VERY HIGH #define MAXMBUF 256 /* Largest macro stored in memory. Larger */ 
package which contains /* macros are written to files. «/ 
SPEED FFTs, Filter generations, COnvO- Fa seat fet ee ew fae ee Re 
lutions, transfer function calculations, auto ‘ Special characters: 
and cross spectra calculations, Cepstrum, * 

i gt | eh coh nce calcu- * These symbols are used internally to pass information 
curve fitting algorithims, CO yb : * from the character-oriented input functions to the 
lations, and many other associated routines. * (in nrinp.c) to the multiple-byte character processing 

: sac] d FULL ode * functions (in nrtext.c and nrout.c). They are all 
The price includes source. Come. * two-character sequences. Of these, VMOVE, HMOVE, and 

8 ete - CH_FONT are also used in the 16-bit wide CTYPE characters 
Fortran Scientific -_aldcussed below. 


Subroutine Package eet ae 


( Oxf8 ) /* Vertical motion th 

#define HMOVE ( Oxf9 ) /* Horizontal motion a 

$295. 00 #define CH_FONT ( Oxfa ) /* Change font ‘ - 

. 4 #define CH_ATTRIB ( Oxfb ) /* Change attribute in current font = 

There are approximately 100 Fortran sub #define SOFT_HYPHEN ( Oxfc ) /* A soft hyphen goes here. «/ 

routines included which fall under the #define ZWIDTH ( Oxfd ) /* Next character is zero width af 

foll , 12 ge #define UP_SPACE ( Oxfe ) /* Unpaddable space af 

ollowing 12 categories. #define LITCHAR ( Oxff ) /* next character goes to printer is «/ 

1) Matrix storage and Operations 2) ve literal tee goes to the printer yf 
Correlation and Regression, 3) Design reer ee 

Analysis (ANOVA), 4) Descriminant Anal- [tise spose ce petie eee mn jo rset ee Ee om Sp pe 

Default fonts and attributes: 


ysis, 5) Factor Analysis, 6) Eigen Analysis, 7) 
Time Series, 8) Nonparametric Statistics, 9) 
Distribution Functions, 10) Linear Analysis, 
11) Polynomial Solutions, 12) Data 
Screening. Full source code is included. 


x 
* 
* BOLD, OVER, and ITALICS are attributes which may apply to any font. PREVIOUS 
* turns off these attributes but doesn't spring a change font macro. ROMAN 
* replaces the current font with the roman font and also clears all 
* attributes. 
® 
/ 


eetieme ot Bane, 
a ALPHA fdefine ITALICS o /* replied : */ 
ee eee eet Be de eons te 
ALPHA COMPUTER SERVICE 4 
5300 ORANGE AVENUE SUITE 108 oa oligo in amlnncilip a o b rtoapt Rept ree ee ate / 
CYPRESS, CALIFORNIA 90630 geese Woo ani eT ee adjustment modes */ 
(714) 828- 0286 #define LEFT ‘" 
California Residents faut ine SIGRy  t. 
clude 6% Sales Ta on ee (continued on page 53) 


Include 6% Sales Tax There are NO license fees 
Circle no. 321 on reader service card. 
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Turbo Tech Report 
Speaks Your Language. 
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The newsletter/disk publication for Turbo Pascal® users 


Are you a devoted Turbo Pascal programmer, 
tired of reading about other languages? Are you 
looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or 
incorporate into your programs? Are you 
interested in improving and expanding your 
Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report. the bimonthly newsletter/disk publication 
from the publishers of Dr. Dobb's Journal and 
Micro/Systems Journal. Each issue delivers more 
than 250K of Turbo Pascal source code programs 
on disk, and 20+ pages of articles, Turbo Pascal] 
software and book reviews, and analysis and 
commentary. It’s the only publication delivering 
such focused technical articles with code on 
disk—and it doesn’t waste your time with 
information about other programming 
languages. Each valuable issue contains: 

° Articles on topics like speedy 3D graphics, 
mathematical expression parsers, creating global 
§0l0s, memory resident and Al applications and 
more—all written by Turbo experts. 

* Reviews of the latest Turbo Pascal software 
programs from companies like Borland 


Dr. Dobb’s Journal, March 1987 


International, Blaise Computing, Media 
Cybernetics, Nostradamus, TurboPower Software, 
and more! | 

¢ News and commentary detailing the 
latest products and developments in the Turbo 
Pascal programming community. 

° A disk filled with Turbo Pascal code! 
You'll get the Turbo Pascal utilities and routines 
discussed in the newsletter’s articles, as well as 
applications developed by Turbo users from 
around the world. You’ll receive programs that 
make labels, generate menus, provide faster 
screen access, transfer files between CP/M and 
MS-DOS computers, and more! 

If you’re an expert Turbo Pascal programmer 
or a novice interested in expanding your Turbo 
skills, you need a publication that speaks your 
language: Turbo Tech Keport. Subscribe today at 
the special price of just $99—that’s 33% off the 
regular price of $150. To order by credit card, 
call toll-free 1-800-528-6050 ext. 4001 and ask 
for item 300. Or mail the attached coupon with 
your payment to Turbo Tech Report, 501 
Galveston Drive, Redwood City, CA 94063. 


Turbo Pascal is a trademark of Borland International Inc. 


Circle no. 119 on reader service card. 





SOFTSTRIP” 


NOW OFFERS YOU SOMETHING 
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THE SOFTSTRIP SYSTEM 


A CHOICE. 


Until now you were stuck with disks. 

No more. Install our unique STRIPPER™ software 
on your personal computer today and discover the 
many benefits of the fastest, easiest, least expensive 
way to handle information. 


STRIPPER lets you print— ON PAPER-your own 
machine readable Softstrip data strips using your dot 
matrix printer. The Softstrip System Reader reads that 
information into a computer rapidly. With STRIPPER 
and the reader, your PC and printer become part of 
the most versatile information handling system 
available. 

With this system you can do anything you wish with 
any data you have in your PC — ON PAPER. 


DATA ENTRY: Why use keystrokes when you can 
eliminate them with data strips? Whatever the 
document - invoices, packing slips, Memos, letters, 
sales reports, the list is endless — simply print a data 
strip right on the same printed page. Now you have 
a document that is both human readable and machine 
readable. A typical document can be entered in only 
45 seconds using data strips. And, it ends keystroke 
errors forever. 


DATA DISTRIBUTION: Why copy disks? It’s time 
consuming and expensive. Softstrip data strips will 
end all that. Simply photocopy as many data strips as 
you like and send them by mail. Data strips ignore 
folding, coffee stains, ink marks and, by the way, 


magnetic fields. And if you’re using telecommunica- 
tions, you can stop making the phone company rich. 


DATA STORAGE AND RETRIEVAL: Why have a 
file of disks and a file of paper? Eliminate one with 
Softstrip data strips. File the data strip with the docu- 
ment. Better still, print the strip right on the document. 
Then put it in a file or binder. 

Retrieval is simple. To find existing data, pull the 
document and its related data strip from the file. 
They've been stored together. Then use the reader 
to enter the data. No more hassle trying to match 
documents with the right disk — if you can find it. 


DATA TRANSFER: Why bother with cables, 
modems and phone lines to move files between 
computers? A Softstrip data strip generated by an 
IBM PC can be read into another PC, or compatible, 
an Apple or even a Macintosh. If you work at home 
on a Macintosh, make a data strip on your printer, 
take it into the office and read it into your IBM PC. 
Simple. And we've created the utilities to let you do 
that easily. (See Application Notes on opposite page.) 


Fascinating, isn’tit? Anything you can do with disks 
can be done with the Softstrip data strip system — 
faster, easier and at lower cost — ON PAPER. 


All you need is STRIPPER software at $19.95 and 
the Softstrip System Reader at $199.95. 


pS aE 


NOW! TRANSFER DATA — 
PROGRAM TO PROGRAM WITH 
SOFTSTRIP’ me 


Now you can move data between programs quickly and easily using 
SOFTSTRIP data strips. 


Using the Softstrip System, you can move data between computers and 
such programs as WordStar and MacWrite, dBASE and AppleWorks, 
Lotus 1-2-3 and Excel and ReadySetGo and many others. 






Tul 
AAAI: 
} Ht 
atti 
Ae : 
We've created a series of several dozen Application Notes on Softstrip data 
strips. These lead you through simple steps to make the file transfer as 
easy as possible, adding even more versatility to your personal computer 
when you purchase the SOFTSTRIP SYSTEM. The advanced system you've 
been hearing so much about. 


All you need to move data between programs is STRIPPER™ software at 
$19.95 and the Softstrip System Reader at $199.95. 


For a complete list of Application Notes, contact your dealer or call Cauzin. 





A major manufacturer and distributor of yachting products is puttin 
g 
SOFTSTRIP data strips to good use moving information from its 
headquarters to a branch office. 

The company has a large mainframe System in operation. 
However, a substantial amount of internal information is generated 
off-line using Macintosh and Apple |! computers. That information can 
Sees pee ee data, sales leads and similar 
information. Some of that information j i 
spur tovhles ont, IS needed by another office 

Until the company installed the SOFTSTRIP S i 

ystem, all informati 
had to be sent to the branch office in hardcopy form, where twee 
rekeyed into the branch's computer. , 

Now, however, information destined for th ice j 

» INT e branch office is stored 
during the day and Printed out on SOFTSTRIP data Strips at the ol = 
the day. Then it is mailed to the branch where its loaded into 
computers using the SOFTSTRIP reader. 

According to the company, the system works extremely well, saving 


the considerable personnel time requi 
quired to rekey the 
reduces the chance of errors Occurring. ue este. ane cae 








Users’ Groups: Call for Special User Group Discounts. etal 
ACT NOW! Don’t delay. See your local S i 
; oftstrip dealer or call us 
1-800-533-7323. In Connecticut: 203-573-0150. . TEMES cena 
| runs the IBM 
CAUZIN For Europe and Asia Contact: cbivekts a IBM file to 
| Softstrip International, Ltd. Macintosh format. 
835 South Main Street 93 Bedford Square 
Waterbury, CT 06706 London, WC1 B3DP England 
(203) 573-0150 01-631-3775 Telex: 263874SOFTST G 
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LIST OURS 







TOOLS FOR TURBO PASCAL 
ALICE 


ie 95 68 
aA FIRSTIME 75 59 
1 f FLASH UP WINDOWS 90 79 
E TURBO HALO 129 9 
F SCREENPLAY 100 89 
y SCREEN SCULPTOR 125 94 
F T-DEBUG PLUS 60 50 
F TURBO EXTENDER 85 65 
y TURBO PASCAL ASYNC MGR 100 84 
j TURBO PROFESSIONAL 70 49 
4 TURBO POWER TOOLS PLUS 100-83 
i TURBO WINDOWS 
4 CALL CALL 


OTHER TURBO TOOLS 








ADVANTAGE C+ “ for XENIX— Take 
_ advantage of object-oriented programming 
methods. Add resiliency and hexbility to your code. 
Build large and sophisticated programs more ~ 
productively. 
Ours $660 










Prix 86 





List $695 


ADVANTAGE Make —Feature-packed 
MS/PC-DOS version of UNIX MAKE utility. 
List $125 Ours $99 


SSP/PC — Fast, extremely accurate library of over 
145 math subroutines. Callable from C, FORTRAN, 
Pascal, BASIC. 

List $350 Ours CALL 


TIMESLICER— New Microsoft version. 
Multitasking, linkable library supporting concurrent 
tasks and real-time event processing with header 
files provided for C+ +, C and assembly. Library 
source available! 

Ours $265 


List $295 

VENTURA PUBLISHER (XEROX)— Desktop 
publishing software, lightning fast, loaded with 
features. Create professional-looking docu- 
mentation at minimal cost! 

List $895 
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Programmer’s Paradise Gives You Superb Selection, 
Personal Service and Unbeatable Prices! 


Welcome to Paradise. The MS/PC-DOS and XENIX software source that caters to your programming needs. 
Discover the Many Advantages of Paradise... 


e Huge inventory, immediate shipment 
e Knowledgeable sales staff 


e Lowest price guaranteed 
e Latest versions 


e Special orders 
e 30-day money-back guarantee 





















Terms and Policies 











Programmer’s Paradise 


A? River Street, Tarrytown, NY 10591 






















LIST OURS LIST OURS Lit OURS. Be diac 199 139 
C++ C UTILITY LIBRARIES MAKE, LINT, PROFILE, UTILITIES SRT ONS Oar. CALL 
ADVANTAGE C++ $ 495 469 ASYNC MANAGER 175 135 C CROSS REFERENCE GENERATOR 50 35 <a 

BETTER TOOLS 
C COMPILERS C FOOD SMORGASBORD 150 95 OTHER POLYTRON CALL CALL eee SSIONAL BASIC oe 
C-86 PLUS 497 445 ‘ oWSOURCE 300 188 PMAKER 12589 3087 MATH SUPPORT 503 
a 60 49 T PANEL-BASIC 14 
DATALICHT -EDEVELOPER'SKIT 99 79 ESSENTIAL C UTILITY LIBRARY 185 = 135 THE PROFILER 15 4° Pee nasit 5p > 106 
LATTICE C 3.2 500 269 ESSENTIAL COMMUNICATIONS 185 = 135 PC LINT 139 105 oaks CATT CALE 
LATTIC C W/SOURCE 900 545 W/BREAKOUT DEBUGGER 250 = 195 PRE-C 295 159 
LET'S C 75 59 GREENLEAF FUNCTIONS 185 135 TEXT MANAGEMENT UTILITIES 12 COBOL COMPILERSUTILITIES 
W/CSD DEBUGGER 150 109 GREENLEAF COMM i,” 72 se MICROSOFT COBOL 700 445 
MICROSOFT C 4.0 450 275 THE HAMMER 195 175 DEBUGGERS 175 -129_-~—« MICROSOFT COBOL TOOLS 350 205 
MARK WILLIAMS C 495 289 MULTIC 149 135 ADVANCED TRACE 86 MICROSOFT SORT 195 139 
SUPERSOSTE 7. om PFORCE 395 245 CODESMITH 86 145 105 ee ACH SORT 149 115 
WIZARD C 450 369 TIMESLICER 295 265  C SPRITE 175 125 REALIA COBOL 995 785 
OURCE 1000 CALL CSD SOURCE DEBUGGER 75 59 SCREENPLAY 175 155 
; W/LIBRARY S _*> 
C INTERPRETERS TOPVIEW TOOLBASKET 250 189 PERISCOPE I 3.0 34 RM/COBOL 950 639 
C-TERP 300 235 PERISCOPE II 3.0 175 145 pMCOBOL8X 1250 895 
INSTANT C ae sCREEN DISPLAY, WINDOWS FOR C PERISCOPE II-X 3.0 145 109 VISUAL COBOL (MBP) 1150 1015 
INTRORUCING© 125 105 WORTHY 295 269 ~~ PFIX 86 PLUS 395 235 ie 
RUNG PROFESSIONAL 1.1 eo 169 URSES 125 85 _‘XVIBW86 6049 FORTRAN C OMPILERSUTILITIES | sy 
I : W/SOURCE 250 — 2 
| FORTRAN 350 209 
ASSEMBLERS, LINKERS CRE RCE WINDOWS’ (2 March BUNDLE NE TRAN 509388 
ADVANTAGE LINK se 349s FLASH UP WINDOWS. a of the Month ACS TIMES SERIES = = 
See 150 98 MICROSOFT WUMINT SYSTEM 500 319_—‘|_ RUN/C Pro- Best-selling C interpreter PLUS ron WN 5 
PASM-86 oe ON-LINE HELP 149 109 Greenleaf Functions or C Utility Library. FORLIB-PLUS | LOTMATICS 135—«119 
Pe 63000 X-ASM 595509 PANE CALL CALL oc : SRA MATICS OND PLOTMATICS 240 219 
QUEL . POLYWINDOWS library! 
SCREENPLAY (LATTICE) a LIST TOGETHER $435 OURS $289 FORTRAN SCIENTIFIC ae 0 
‘ : SOFTSCREE I NGS 70 = 
ials 275 «199 STRINGS AND THI 

: Lattice Spec a aa 225 199 EDITORS 
coos ooh Wesckeen ea 193 Al’) [ XENIX/UNIX SOFTWARE 

59 
© CROSS REFERENCE GENERATOR 50-35 oe 1 VUE 75 
cron oe 2 a we FOR DATA 295 230 awe = ee XENIX SYSTEM v oa oe oe 
C-SP oe 245 SYS — 
DBcll - i FILE MANAGEMENT EPSILON ee SST eeaND . 
LMK > rai 245 195 — FIRSTIME(C) 295 MICROPORT CALL CALL 
RPG Il COMPILER 750 635 BTRIEVE ee a AG 2 - 

VE 245 195 89 ADVANTAGE C+ + 
oe in XTRA /REPORTGENERATION 390-315 LSE 125 8) «| BTRIEVE 595 465 
SECRET DISK vos : BTRIEVE/N 505 465 PMATE ra 129 | CISAM pe =. 
SO MANAGEMENT UTILITIES 120 85 XTRIEVE/N 595 465 BOM 196 M9 | CTREE sic a = 
TEX W/REPORT GENERATION 940730 Serre 150 109 | MICROSOFT BASIC, as 
GRAPHICS CTRR TREE 295 249 VEDIT PLUS 185 139 MICROSOFT aa an is 

: 3 295 225 DLE 650 5 cies MICROSO RAN 

A TAL GRAPHICS ° 250 195 ape an 395 329 ADDITIONAL PRODUCTS <q | MICROSOFT PASCAL 695 439 
GRAPHIC 350 289 DBC Il 250 175 DAN BRICKLIN'S DEMO PROGRAM 7558 | PANEL 
GSS GRAPHICS DEVELOPMENT ng WISOURCE = . SO ACTIVE GastrLOW sh. iss 

TOOLKI DBCI 195 129 

RNEL SYSTEM 495 379 195 155 PDISK 7 OT oral 

Gee METAFILE INTERPRETER 295 239 DB Vy SOURCE 495 425 SOURCE FRAMMER 77 = 9 ~=Ss ADDITIONAL LANGUAGES 
GSS PLOTTING SY¥sren sop 209 DB QUENY ae TRE RA PUBLISHER (XEROX) 895 805 APL PLUS 595 429 
HALO— ONE LANGUAGE _ a W/SOURCE 495 425 JANUS ADAVC PACK 95 89 
HALQ ENE MICROSOFT ae 1169 PASCAL COMPILERS LOGITECH MODULA 2 2 8 

LANGUAGES 595 415 INFORMIX 795 639 MICROSOFT PASCAL 300 188 MALLTALK V ees 
METAWINDOWS a INFORMIX 4GL 995 799 ES scar, 100 «= «69.~SC«sé‘ TURBO PROLOG 100% 
eos a . Ome naan OTHER BORLAND CALL CALL CALL FOR OTHERS/ADD-ONS! 

PHAC a 

METAFONTS PLUS 235 «189 


Z 


Oe eel 








© We honor MC, VISA, AMERICAN EXPRESS : ae : 
credi .O.D, F ent by check. New York State residents applicable 
Ao a ae 00 rene | sent UPS ground. Rush service available, prevailing rates. 


e Programmer's Paradise will match any current nationally advertised price for the products listed in this ad. 
¢ Mention this ad when ordering — some items are specially priced. 
© Prices and Policies subject to c e without notice. 

© Corporate and Dealer inquiries welcome. 


Programmer’ 
1-800-445-7789 






914-332-4548 












Q In NY: 914-332-4548 tu 
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Listing Eleven ( Listing continued, text begins on page 96. ) 


| a 
* Number registers: 
> The number registers are maintained a *s a to NREG 
bjects. The array is kept sorte y regis . 
; ets a pointer to the name, it usually points at nbuf. 
i 


typedef struct nr 
{ 


char a ; 
int nfm ; 
int nval 3 
int incr_amt; 
} NREG ; 
/* Read/write pre-defined number registers: hy 
/* #/ 
extern NREG nee? oe oe “aa number ns 
tern NREG *Nrdy; . = * / 
ahacn NREG *Nrdw; /* dw Gay of the week (0 sun, 6= sat) = 
rn NREG *Nrh; /* bh our < 
ac NREG *Nrln; /* ln Current .nm line number 7 
extern NREG *Nrnl; /* nl Current output line number 7 
extern NREG *Nrm; /* m minute 2 
extern NREG *Nrmo; /* mo Month - 
extern NREG *Nrs; /* s second - 
extern NREG *Nryr; /* yr Year 
/* Read only pre-defined number registers: as 
/* 
extern NREG *Nrhp; /* hp Current horizontal place on input line */ 
extern NREG *Nrdn; /* dh Height of most recent diversion me 
extern NREG *Nrdl; /* dl Width of last completed diversion at 
extern NREG *Nrargs; /* .$ Number of args at current macro level / 
extern NREG *“Nrlines; /* .c Number of lines read from current input ~~ 
extern NREG *Nrvplace; /* .d Current vert. place in current diversion */ 
extern NREG *Nrfont; /* .£ Index in Fonts[] of current font — 
extern NREG *Nrindent; /* .4 Current indent column - 
extern NREG *Nrllen; /* .l Current line length pi! 
extern NREG *Nrtlen; /* .n Length of text portion of previous line = 
extern NREG *“Nroffset; /* .o Current page offset “f 
extern NREG *Nrplen; /* .p Current page length */ 
extern NREG *Nrtotrap; /* .t Distance to next trap / 
extern NREG *Nrfill; /* .u 1 if in fill mode, 0 otherwise e/ 
extern NREG *Nrv; /* .v current vertical base-line spacing a 
s* , 
* Number register format types. The specified character found in the 
* left-most postion of the .af command's c argument signifies the 
* type. In addition, the number of characters in the arabic padded mode 
* determines the fieldwidth of the number. 
* The format for arabic numbers is an ascii digit. If this digit is 
* *O' or 'l' then the number is printed unpadded. If the digit is a '4! 
* it is printed in a 4 space field, right justified in the field and 
* padded with zeros. The special format READONLY is used by the read 
* only pre-defined number registers. They are always arabic format. 
«/ 


#define ARABIC § ‘1! oe a ee “y 
#define PADDED ‘Oo! /* 000, 001, 002, eee / 
#define LC ROMAN ‘i! {= 0, y - Shy itt, -iv, %. i: td 
#define UC_ROMAN 'TI' /* 0, I, II, III, Iv, Ve. ‘se ay 
#define LC ALPHA ‘a! Se We” Bln x ze aa, ab... = */ 
#define UC_ALPHA ‘a! /* 0, A, B, ... , 2, AA, AB... a/ 
#define LC_ENG ‘e! /* zero, one, two, three ... ey 
fdefine UC_ENG ‘E! /* Zero, One, Two, Three we" */ 
#define READONLY 'r! /* Pre-defined, arabic format only */ 

Ce RT ear arti tla e eerias acta ay ttt a: 

x 

Default values of the pre-defined number registers 
#define DEF PAGE 1 /* Page number eZ 
#define DEF_WIDTH 0 we Width of most recent diversion +*/ 
#define DEF_HEIGHT 0 id Height of most recent diversion */ 
#define DEF _DAy 1 he Default day “/ 
#define DEF _HORIZ 1 /* Current place on input line */ 
#define DEF_LINE 1 f* Output Line number “f 
#define DEF_MONTH 1 ¢* Default month */ 
#define DEF_YEAR 1985 ies Default year “7 
#define DEF_NARGS 0 {* # Args in current macro ef 
#define DEF_INLINES 0 fe # Lines read from current input * 
#define DEF VERT 1 hs Vertical place in current diver:* 
#define DEF _ FONT 0 /* Index in Fonts[}) of current font*/ 
#define DEF_INDENT 0 7* Current indent column me 
#define DEF_LINLEN 80 o Default line length “y 
#define DEF_TEXTLEN 0 /* Len of text part of previous line */ 
#define DEF OFFSET 0 /* Page offset ny 
#define DEF_PGLEN 66 y* Page length *y 
#define DEF_TOTRAP 66 /* Distance to next trap s/ 
#define DEF FILL 0 /* 1 if in £411 mode */ 
#define DEF_LSs 1 /* Default line Spacing wf 
EP Fee a Re ee acai ge SE ik «/ 


#define NUMTABS (MAXSTR + 1) 
typedef int TSTOP( NUMTABS 


extern TSTOP Tabstop; 


typedef char *CHARPTR; 


}3 


/* Largest column in which a tab can be set */ 


/* The tabstop array (see nrglbls.c) i 


(continued on next page) 
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MULTITASKING 


The new multitasking software 
for the IBM-PC. 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDes Plus an unbeat- 
able value. 


e Run up to 32 programs concur- 
rently. 

e Your software continues to run 
under DOS. No need to learn a 
new operating system. 

e Use the compilers you already | 
have. Supports software written in 
any language. 

e dicersion aotmauie to load/run 
programs, change priority, check 
program status, abort/suspend/ 
resume programs. | 

e Prograaditc interface via INT 15H 
for the following. 


* Intertask message communica- 
tion. Send/receive/check mes- 
Sage present on 64 message 
queues. 

* Task control by means of 
semaphores. Get/release/check 
semaphores. 

* Change priority-128 priority 

levels. 

Suspend task for specified 

interval. 

Spawn and terminate external 

and internal tasks. 

Disable/enable multitasking. 

and more! 


° Runs most commodity software 
including: Lotus 1-2-3, Dbase. 
Wordstar, and others. 

¢ Independent foreground / 
background displays. 

e Access to DOS while applications 
are running. 


































Hardware/Software Requirements 


IBM PC/XT/AT or true clone. Mono- 
chrome/CGA display adaptors or 
equivalent cards only. Enough memo 
to hold MultiDos Plus (48 KB) and 
all your application programs. Also 
may need 4 or 16 KB memory for 
hidden screens" for each active task. 
MS-DOS (or PC-DOS) 2.0 or later 
operating system. 


ONLY 29.95 +$2.95 S/H 


Outside USA add $7.95 shipping and handling. 


Visa and Mastercard orders call toll- 
free: 1-800-367-6707. In Mass call 
617-651-0091, or send check or money 


order to: NANOSOFT 


13 Westfield Rd, Natick, MA 01760 
ene Nd, Natick, MA 01760. 


MA orders add 5% sales tax. Write for 
source code and quantity price. 
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Byte Magazine called it. 


“CIARCIA’S 
SUPER 
SYSTEM’ 


__ The $B180 
Single Board Computer 


Featured on the cover of Byte, Sept. 1985, 
the SB180 lets CP/M users upgrade to a 
fast, 4” x 71/2" single board system. 





6MHz 64180 CPU 
(Z80 instruction superset), 256K RAM, 
8K Monitor ROM with device test, disk 
format, read/write. 
Mini/Micro Floppy Controller 
(1-4 drives, Single/Double Density, 
1-2 sided, 40/77/80 track 31/2)’ 51/4” 
and 8” drives). 
Measures 4” x 71/2” with mounting holes 
One Centronics Printer Port 
Two RS232C Serial Ports 


(75-19,200 baud with console port 
auto-baud rate select). 
e ZCPR3 (CP/M 2.2/3 compatible) 
Multiple disk formats supported 
° Menu-based system customization 


New Low Prices 
SB180-1 
SB180 computer board w/256K 
bytes RAM and ROM monitor 
Sb dtm 8 gutce warms . . 299.00 
SB180-1-20 
same as above w/ZCPR3, ZRDOS 
and BIOS source ......-+-- $399.00 
COMM180-S 
SCSl interface .....--+:+: $150.00 


Now Available 


TURBO MODULA-2 
TURBO MODULA-2 with 


Graphix Toolbox . . 





TO ORDER 
CALL TOLL FREE 


1-800-635-3355 


For Technical Information or in CT, call: 


1-203-871-6170 


TELEX 
643331 





S 
CS Micromint, Inc. 
ee 4 Park Street 
Vernon, CT 06066 
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oe struct 


sernee ewe ee He Re 


* 
Pa 


char 
int 


*omd; 


unsigned type : 3 
unsigned inhib: 1 


char 


*def; 


typedef struct 
{ 


} 
FONT; 


#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 


[*----- 
x 


*« 

x 

=/ 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 
extern 


(*action) (); /* 


10 


Listing Eleven (Listing continued, text begins on page 96.) 


/* Command name a/ 

Subroutine to call when cmd found */ 
/* Command type wf 
/* 1 ==> Inhibit works x/ 


/* Default value of numeric argument */ 


Table of user defined fonts (Fonts) is made ge f£ FONT type. _ 
NUMFONTS is the maximum number of user defined dene) oe 
The “widths" array holds the character widths. Maximum 

number of characters is MAX CHARS IN FONT. Font numbers 

must be single characters (in the range 0-9) so NUMFONTS 

must be <= 10. The “resolution” field is the middle argument 
from the .hd command that was in effect when the .df was 
executed. If a space is 6 units wide and “resolution” is set to 
2, then sending Right_str to the printer three times will 

move the carriage one space to the right. If "resolution" is 


1, then the string will have t 
same amount. F o be sent 6 times to move the 


/* Font name «/ 
/* Macro to enter new font a/ 
/* Macro to exit font xf 
/* Min horizontal resolution from .hd */ 
/* String to go left from .hd a/ 
/* String to go right from .hd sf 
/* Array of character widths. / 


UCHAR name; 

UCHAR smac (3); 

UCHAR emac [3]; 

int resolution; 
UCHAR *left; 

UCHAR *right; 

UCHAR *widths; 
NUMFONTS 

MAX CHARS _IN FONT 256 


Msc #defines and typedefs 


ISCMD 


(c) 


( (c)==Cmd_chr || 


(c)—Nobreak ) 


#Defines to get at the value fields of the pre-defined 
number registers (Those marked with an E are saved with a .ev 


command) : 

PAGE (Nrpg->nval) /* Page number % 
WIDTH (Nrdl->nval) /* Width of last completed diversion dl 
HEIGHT (Nrdn->nval) /* Height of last completed diversion dn 
DAY (Nrdy->nval) /* Day dy 
HORIZ (Nrhp->nval) /* Current horiz-> place on input line hp 
LINE (Nrin->nval) /* Current .nm line number in 
OLINE (Nrnl->nval) /* Current output line number nl 
MONTH (Nrmo->nval) /* Month mo 
YEAR (Nryr->nval) /* Year yr 
NARGS (Nrargs->nval) /* # of args at current macro level. -$ 
INLINES (Nrlines->nval) /* # of lines read from current input Cc 
VERT (Nrvplace->nval) /* Vert. place in current diversion a 
CURFONT (Nrfont->nval) /* Currently active font (Font({i)) (E) -f 
INDENT (Nrindent->nval) /* Current indent column (E) .i 
LINLEN (Nrllen->nval) /* Current line length (E) .d 
TEXTLEN (Nrtlen->nval) /* Length of text part of prev out line .n 
OFFSET (Nroffset->nval) /* Current page offset (E) .o 
PGLEN (Nrplen->nval) /* Current page length -p 
TOTRAP (Nrtotrap->nval) /* Distance to next trap & 
FILL (Nrfill->nval) /* 1 if in fill mode, 0 otherwise (E) .u 
LSPACE (Nrv->nval) /* Current line spacing (set w/.ls) (E) .Vv 
WEEKDAY (Nrdw->nval) /* day of the week wd 
HOUR (Nrh->nval) /* hour h 
MIN (Nrm->nval) /* minute w 
SEC (Nrs->nval) /* second 8 


Global vars used by more than one module. 
saved with a .ev command.) Most 


of these are declared in nrglbls.h 


but some are command-line switches and are found in nr.c. 


int 
int 
int 
int 
int 
char 
int 
int 
int 
int 
char 
FONT 
int 
int 
FILE 
char 
int 
int 
char 
int 
int 
int 
int 


Ad4jmode : /* Current adjustment mode E 
Adjusting ; /* One 4f adjusting lines E 
cmd _chr ; /* Command character E 
cont_ul : /* Num of input lines to continuously underline E 
Divtrap + /* Location of diversion trap, -1 if none 

Dtrap name[]; /* Macro to invoke when diversion trap reached 
Divwidth ; /* Width of most of last completed diversion 

Esc : /* Current escape character 

Hyphenate ; /* Hyphenation is enabled during filling only 
Hyphen_chr ; /* Soft hyphen is \<Hyphen_chr>. default = \% 
*Endm ; /* Name of macro invoked at end of input 

Fonts [] : /* Table of user defined fonts 

H_units : /* Number of horizontal units / inch 

H_space ; /* Number of horizontal units in a space 

*Ifile ; /* Current input file 

*Ifilename ; /* Name of current input file 

Inhibit : /* Inhibit text and command processing except 34x 
Itrap : /* Lines left to current input trap -1 if none E 
Itrap_name[]; /* Macro to invoke when Itrap reaches 0 

Ismacro ; /* 1 if Ifile is a macro, 0 if a file 

Isdiv : /* 1 if Ofile is a diversion, 0 if a file 

Leader ; /* Current leader character E 
Linenum ; /* Current output line number 
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(Those marked with an E are 





extern char **Macv ; /* Macros arguments for current macro level */ 
extern int Nobreak ; /* Nobreak character EB 8/7 
extern int Nospace ; /* Supress spacing as per .ns command “7 
extern int No cntl ; /* Don't print control characters ay 
extern int Nm_blanks ; /* .nm will number blank lines too if true E */ 
extern int Nm_on ; /* Line numbering enabled by .nm cmd E*/ 
extern int Nm_mult ; /* The M argument of the most recent .nm command E*/ 
extern char *Nm_str ; /* The S argument of the most recent .nm command E*/ 
extern int Nr_cpmode ; /* Nroff copy mode, expand \ in macro definitions */ 
extern int Num_bold ; /* Remaining number of input lines to do bold E */ 
extern int Num_center ; /* Remaining number of input lines to center E */ 
extern int Num_os ; /* Number of input lines to print overstruck EB: */ 
extern int Num under ; /* Remaining number of input lines to underline E */ 
extern FILE *Ofile ; /* Output file descriptor / 
extern int Page ch ; /* Translates to page number in 3 part titles s/ ) . 
extern = Plain 3 ‘ Serecene all bold, underline, and overstrike */ Read what they re saying about 
extern int Ptab [(] ; /* Proportional spacing table s/ | i 
extern int Quit ; /* Terminate nroff when set by .ex command */ this new concept In prototyping 
extern int Tab ; /* Tab repetition character E */ and demo-making: 
extern int Tabwidth ; /* Width of input tab stops ay F P 
extern — oe eeie ; /* Expand tabs only if true * / “A winner right out of the 
extern int Tempin ; /* Temporary indent column E */ . 
extern int Title len ; /* 3 part title line length (set with .1t cmd) E */ starting gate. After you use 
extern int Verbose ; /* Echo commands to stdout as they're executed */ DEMO once you'll wonder how 
extern int Wordstar ; /* Wordstar-mode output of you got along without it.”’ 
extern char *Lmarg str ; /* String used in .ml command EB */ aa 
extern char *Rmarg str ; /* String —_ in .mc command E.+/ Oe nea See 
extern char *Bd_on ; /* Send to printer to turn bold face on my . 
extern char "Bd _ off ; te Send to ae to turn bold oe off _ “Everybody who writes 
extern char *Ul on ; /* Send to printer to turn underline on * i i 
extern char *Ul off ; /* Send to printer to turn underline off af software, ether CORINOPATY 
oe pe oeteee 3 is Send to er to turn Overstrike on a/ or for in-house applications, 
extern ar *Os_o s /* Send to printer to turn Overstrike off “7 i i 
extern int Bold ; /* Boldface currently active E */ should immediately order a 99 
extern int Over ; /* Overstrike currently active B47 Copy. Period. No exceptions. 
extern int Italics ; /* Italics currently active E */ — Soft-letter. 4/20/86 
extern char *Dn_str ; /* Send to printer to send cursor down 1/2 line */ i 
extern char *Up str ; /* Send to printer to send cursor up 1/2 line e/ ‘Its low price, superb 
extern int Vs_amt ; /* This many \u or \d cmds moves one line e/ performance, and range of 
extern aes eeeee Te ; Ms Send to ee to go left “7 applications practically 
extern ar *Right_str ; /* Send to printer to go right af j i i 
extern int Hs_amt ; /* Above moves 1/n sphons . a er ih . a. ni wie” 
used. rour py mating (o. 
End Listing Eleven — InfoWorld, 3/31/86 
a e as i i 
Listing Twelve Apparently has a hit on its 
hands with...a development 
pines ee an a rane rene tool for personal computer 
Characters are handled internally as CTYPE's rather than chars. 
® The routines in nrmap.c copy character strings into CTYPE software that has won roe 
* strings. The #defines in this file define the various attribute reviews from early users. 
: bits, etc., in a CTYPE: — Computerworld, 4/7/86 
™ 66 39 
* pad: character is paddable, only used for spaces. A gem. 
* lit: character must be taken literally. — PC Week, 3/18/86 
* width: If 0, character takes no space in output. If 1, the 
x ‘ 
: eryina se Speen is in the currently active character Product of the Month \ 
* sh: A soft hyphen preceedes this character. — PC Tech Journal, 3/86 
* Os: Overstrike attribute (character is overstruck) e 
* bold: Boldface attribute 
* ul: underline attribute 
® 
« 15.14 13 12 23 10 9 8 7 0 or 
* tenon te--t----- wee ee ene tenn -te---t------ $aen-t----------- + 
® 1 0] | pad | width | sh | os | bold | ul | character | — 
x $e--t---+----- $------- ten--t----+------ teennt----------- + 
x 
* 15 14 13 12 «10 0 _ Thousands of developers are de- 
: $een tenn -$---- $2 $+ $= - - = +--+ + signing better products faster and 
: | eS ee ek eee eet producing more effective demon- 
* ne strations using Dan Bricklin‘s Demo 
* vm: vertica motion | 
e aa nb ps ee Program. You can, too. Act now! 
* cf 


: change font ia 
/ ONLY $74.95 
ay a 
typedef unsigned int CTYPE; Sane 
VISA ™ fa 
#define CHR Ox00ff /* Character mask a/ oa 





#define UNDERLINED 0x0100 /* underlined bit x / Massachusetts residents add $3.75. Outside of the 
#define BOLDFACE 0x0200 /* boldface bit s/ U.S.A. add $15.00. 

#define OVERSTRIKE 0x0400 /* overstrike bit s/ Requires 256k IBM PC/compatible, DOS 2.0 or 
#define HYPHEN 0x0800 /* soft hyphen bit “/ later. Supports Monochrome, Color/graphics, and 
#define WIDTH_BIT 0x1000 /* width bit */ EGA Adaptors (text mode only). 

#define NOPAD BIT 0x2000 /* space is paddable “/ 

#define MODE _BIT 0x8000 /* Selects one of: *f 

#define VM _BIT 0x4000 /* Vertical motion ay 

#define HM BIT 0x2000 /* Horizontal motion sy 

#define FONT _BIT 0x1000 /* Change font wy 

#define SET_UL(c) ((c) |= UNDERLINED ) /* Underlined Ry - * 

#define IS_UL(c) ((c) & UNDERLINED ) gen 

#define SET_BD(c) ((c) |= BOLDFACE ) /* Bold */ . ee 

#define IS_BD(c) C(c)-36 BOLDFACE ) 

#define SET_OS(c) ((c) |= OVERSTRIKE ) /* Overstrike «/ SO] | WARE 
#define IS_OS(c) ((c) & OVERSTRIKE ) 


#define HYPHENATE (c) ((c) |= HYPHEN ) /* Soft hyphen af GARDEN 


#define UNHYPHENATE(c) ((c) &= ~HYPHEN ) 


#define HAS_HYPHEN(c) ((c) & HYPHEN ) Dept. D 
#define CLRWIDTH(c) ( (c) &= ~WIDTH_BIT) ; PO. Box 373, Newton Highlands, MA 02161 
#define SETWIDTH(c) ( (c) |= WIDTH_BIT) (continued on next page) 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME is a high quality programmer’s text ed- 
itor written specifically for the IBM PC. It 
contains features only found in the more 
expensive programmer's text editors. These 
features include: 


¢ Multiple Windows 
¢ Column cut and paste 
e Regular Expressions 
e C-like Macro Language 
e Keyboard Macros 
e Reconfigurable Keyboard 





New commands and features may be add- 
ed to the editor by writing programs in its 
macro language. The language resembles 
C, and it’s extremely easy to write and 
examine macros when you are not dealing 
with a parenthesized language like LISP. 
The macro languages comes with a rich set 
of primitives for handling strings and 
changing the editor environment. 


The source code option lets you see how 
text editors are written, and gives you real- 
world applications of various data struc- 
tures. You will also learn how to write in- 
terpreters by examining code to the macro 
language compiler and interpreter. 


A unique advantage of the source code op- 
tion is that many programmers will have 
the opportunity to examine the code, im- 
prove parts of it, and add additional fea- 
tures. The best of these improvements and 
enhancements will be incorporated into 
future releases, which, as a_ registered 
source code user, you will receive updates 
for. 


The code is written in C, and conforms to 
the ANSI standard. This allows the code to 
be compiled with any compiler that sup- 
ports the ANSI standard. A few of the 
string handling and input-output routines 
are written in 8086 assembly language for 
speed. 

The source code option is perfect for 
OEMs and VARs who want to add a text 
editor to their applications. 





Price for program and on- 
line documentation — 
$34.95 

Price for editor with 
complete source code — 
$84.95 

Special offer — New York 
Word word processor — 
$19.95 — Split screen, mail 
merge, hyphenation, math, 
regular expressions 


MAGMA 
SYSTEMS 


138-23 Hoover Ave., Jamaica, NY 11435 
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#define HASWIDTH (c) 





Listing Twelve (Listing continued, text begins on page 96.) 


( ((c) & (MODE BIT | WIDTH_BIT)) == \ 


((c) & (MODE_BIT | WIDTH_BIT)) ) 
#define CWIDTH (c) (HASWIDTH(c) 2? Fonts[CURFONT).widths[(c)&CHR) : 0) 
#define SPACE SIZE ( Fonts(CURFONT).widths[ '' } ) 
#define SETNOPAD (c) ((c) |= NOPAD BIT) 


#define PADDABLE (c) 


(! ((c) & 


NOPAD BIT) } 


#define ISCHAR(c) (((c) & MODE BIT) = 0) 

#define CHAR(c) ¢(e}): & CHR) 

#define ATTRIBUTES (c) ((unsigned) (c) >> 8 ) 

#define TO _CTYPE(c) ((CTYPE) (c) | WIDTH_BIT) 

#define WHITE(c) ( !((c) & MODE BIT) && PADDABLE(c) &é& CHAR (c)==' ') 
#define FVAL(c) ( (int) ((UCHAR) (c) ) ) 


#define MVAL(c) 


( (int) ((( (int) (c)) << 4) >> 4) ) 


#define ISFONT(c) ( ((c) & (MODE_BIT | FONT BIT)) — \ 
(MODE_BIT | FONT _BIT) ) 
#define VERTICAL(c) ( ((c) & (MODE_BIT | VM BIT)) == \ 
(MODE BIT | VM_BIT) ) 
#define HORIZONTAL(c) ( ((c) & (MODE BIT | HM BIT)) == \ 
(MODE BIT | HM BIT) ) 
#define ISMOTION(c)  ( VERTICAL(c) || HORIZONTAL(c) ) 


#define MOTION (amt) ( ((CTYPE) (amt) & Oxfff) | (MODE_BIT | HM BIT)) 


End Listing Twelve 


Listing Thirteen 


/* Length of text portion of current line. */ 


#define TLEN 


(LINLEN - (INDENT + Tempin)) 
#define U_TLEN 


( TLEN * SPACE SIZE ) 


/* in spaces */ 
/* in units */ 


End Listing Thirteen 


Listing Fourteen 


x 

* 

* (c) 1987, Allen I. Holub, All rights reserved 

x 

* This module contains the nroff main() routine, and all 
* support for command line processing. 


#include <stdio.h> 
#include <fcntl.h> 
#include <getargs.h> 
#include <bitmap.h> 
#include <signal.h> 
#include “"nr.h" 


/* Variables set by command line switches. The non-static 

* variables are used in other modules. The others are used 
* by various routines in nrtext.c 

ey 


static char *Pagelist = NULL; /* Bit map used for -o option */ 
static char-*Plist = "* ; /* List of pages to print s/ 
int Plain =0 : /* suppress bold, underline, etc. */ 
int Stop =- 0 3 /* Stop output every N pages “/ 
int No_cntl = 0 : /* Don't print any control characters 


* except \n. Used in nrtext.c 
/ 


int Verbose = 0 ; /* echo commands as they're executed */ 
static int Fpage = 1 ; /* Number of the first page. We can't 
* use the PAGE number register 
* because number registers don't 
* exist yet. 
“7 
static int Even = 0; /* Print only even pages “/ 
static int Odd = 0; /* Print only odd pages s/ 
static int Unbuf = 0; /* Don't buffer the input stream */ 
extern int do _mfile() ; /* Defined below, processes -m x/ 
extern int do tstr() ; /* Defined below, processes -t af 
extern int do _rreg() ; /* Defined below, processes -r */ 
static ARG Argtab[] = 
{ 
{'c', BOOLEAN, &éNo_cntl, “don't print (C)ontrol characters" }e 
{'d', BOOLEAN, &Odd, “print only o(D)d pages" h, 
{'e', BOOLEAN, éEven, “print only (E)ven pages" }e 
{'m', PROG, (int *) do mfile, “prepend (M)acro: /lib/tmac/<str>.mac" }, 
{'n', INTEGER, &éFpage, “(N) umber first page N" }. 
{'o', STRING, (int *) éPlist, "print (O)nly pages in list (<str>)" )e 
{'p', BOOLEAN, &éPlain, “Suppress bold, underline, overstrike"™ }, 
{'r', PROC, (int *) do rreg, “set number (R)eg: -rx<num> -r(xx<num")}), 
{'s', INTEGER, &Stop, "“(S)top every n pages" v 
{'t', PROC, (int *) do tstr, “set s(T)ring: -tx<str> -t(xx<str>" }. 
{‘u', BOOLEAN, éUnbuf, “Don't buffer input for debugging” h, 


{'v', BOOLEAN, &Verbose, "(V)erbose mode, echo input commands" } 
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#define ISODD (x) ((x) & 1) 
#define ISEVEN(x) (! ISODD (x) ) 
#define NAMESIZE 50 


/* Full path name of macro file specified with 
the -m command line argument. The %s will 
be replaced with the string following the 
~m on the command line. NAMESIZE should 
agree with the precision field. (%1.32s8). 

A NAMESIZE sized buffer is used to hold 
the expanded macro file name. 

/ 


#define MACFILE "\\lib\\tmac\\%1.8s.mac" 


see ee eM 


get_pglist( ) 
{ 

/* Produces a page list from str. A page list is a 
bit map with one bit representing each legal page. 
0 < N <= 512. Str is a null terminated string giving 
the legal pages seperated by commas. The notation 
“N-M" may be used to print all pages between N and M. 
“-N" means from the beginning of the document to 
page N. “N-" means from page N to the end of the 
document. The special forms: -oe and -oo print all 
even pages and all odd pages respectively. 


+e ee oe He HH OH OD 


~ 


register int start, end; 
if( !(Pagelist = (char *) makebitmap( MAXPAGE )) ) 
{ 


err("“Not enough memory to make page list\n"); 
return; 


} 


if( (Even || Odd) 6&@ !*Plist ) 
Plist = "=" ; 


while ( *Plist ) 
{ 


Start = ( *Plist == '-') 21: stoi( ¢Plist ) + 


/* At this point start will be set to 1 if there 

* was a leading dash or to the number if no 

* leading dash. “Plist" will be pointing past the 
* number. If *Plist is a dash we are doing a range, 
* else we are setting a single page. 


a 

if( *Plist !— ‘-!8 ) 
end = start; 

else 

{ 
Plist++; /* Skip the '-! a/ 
if( !(end = stoi(éPlist))) 

end = MAXPAGE; /* No # following - */ 


} 


a start <= end; start++ ) 


if 

{ ( !Even && !Odd 
ll( Even 66 ISEVEN(start) ) 
ll ( Odd €& ISODD (start) ) 


setbit( start, Pagelist, 1); 
} 


while( *Plist —= 2 
; Plist++; 


#ifdef DEBUG 
printf("only the following pages will be printed: \n"); 
for( start = 1; start <= MAXPAGE; start++ ) 


if( testbit (start, Pagelist) ) 


printf ("\n"); printf ("%qd, "> start Fy 
f 


#endi 
} 
/* TET gt ea een ara ie ie ati nal hivibiet punta oocvannanatie gett / 
ispage( n ) 
{ 

/* Return 1 if nisa legal 

page to print (is in 

od the page list or no -o option une toner given). 
; return( Pagelist ? testbit(n, Pagelist) : 1 de 
/* Ee ee a rena tl inane gl xf 


do_mfile( name ) 
char *name; 


{ 


/* This routine is Called when the -m<str> argument 


* is encountered on the command line. It i 
Spey by getargs. ae 


char nbuf [NAMESIZE] * /* Macro file name / 


if( *name ) 
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MULTI 
USER 
BBS 


Off-the-shelf and custom systems for: 








* Multi-User Teleconferencing 

* Multi-User Electronic Mail 

* Multi-User File Upload/Download 
* Multi-User Order Entry 

* Multi-User Games and Amusements 
* Multi-User Database Lookup 

* Multi-User Online Expert Systems 
* Multi-User Catalog Scanning 

* Multi-User Classified Advertising 

* Multi-User Educational Services 


pS 
PeSeeeey 
ESS eS ERS 
PEreeee 
Peete 
perieee 
eA Me ES ESS} 
PEEL eee ae | Fe 
#354322 | 2352223 4 23 
peerets ee eter eet 
Peereee eS err eer ey 
beet ete es gettrece! 
berries 
Bi ectees 
peeesey 
beet ee 
bieieee: 


ag ee 
ee gt ets tity 





We sell hardware and software for the 
IBM PC family and compatibles. Our 
product line is centered around the 
GALACTICOMM BREAKTHROUGH, a 
single-slot card with 16 independent 
modems on it. You will simply have a cable 
coming out the back of your machine, 
going straight into the jacks in the wall 


installed by the telephone company. No 
external hardware needed. 


Call our multi-user demo system with your 
modem, at (305) 922-3901. Then call (305) 
472-9560, voice, for more information. 
Why not call right now? 


*) GALACTICOMM 


GALACTICOMM, Inc., 11360 Tara Drive, Plantation, FL 33325 
Circle no. 362 on reader service card. 
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Listing Fourteen (Listing continued, text begins on page 96.) 


{ 
INLINES = 0; 


sprintf(nbuf, MACFILE, name); 
Ifilename = nbuf ; 


“ae !( Ifile = fopen(nbuf, “r") )) 


err("Can't open macro file: ; 
Dae tie p e: ts\n", nbuf ); 


} 
process( Ifile, Ifilename, 0, 0 ); 
fclose( Ifile ); 


do tstr( str ) 
char "str? 


he Called by getargs() when -t is encountered. 
Given -tx<str> or -t(xx<str> initializes 
* register x or xx to <str>. 


a/ 

static char line[{ MAXSTR ]; 
char name([4]J; 
extern sgetc(); 


name(2) = name[1l]} = 0; 
if( *str ) 
if( (nmame(0) = *str++) == '(' ) 
ve *str && *(str +1) ) 
name(0} = *strt++; 
name({l) = *str++; 
} 
Ifile = (FILE *)éstr; 
getline( line, 0, sgetc ); 
ds(name, line ); 


return; 


} 


fprintf(stderr, "Illegal string name on command line"); 


do_rreg(str) 
char *str; 


/* Processes -r command line argument. Given 
* -rx<str> or -r(xx<str> initializes number 


* register x or xx to <str>. 


char name(4); 
name(2] = name(1) = 0; 
if( *str ) 


if( (mame(0] = *str++) 
{ 


ws '(* ) 


if( *str 6& *(str + 1) ) 


{ 
name(0) = *strtt+; 


name{l]) = *strtt; 
} 
} 


putnreg(name, 0, atoi(str) , 0, 1, 0): 
return; 
} 


fprintf(stderr, "Illegal register name on command line"); 


/* SF a ciipceie iain rim miainee  SmrnpS nema Re SSS «/ 
onintr () 
/* Treat a Ctrl-C or Ctrl-Break as if we've 
* executed a .ex command. 
*/ 
signal( SIGINT, onintr ); 
bee clean():; /* Delete all macro disk files */ 
exit( 1 )2 
} 
/* ih iu nan eran eben ala a th aaa pa are ne ae AAMC x / 
usage () 
exit( 1 ): 
} 
/* Me as eis Se a ren ea ee es a ts ane a we ww a ae ae ee x / 
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main(argc, argv) 


int arge; 
char **argv; 
{ 
/* Initialize: a/ 
Gf (7K, MBs s /* default, monospaced 
init text(); /* text module SO - 


init nreg(); /* pre-defined number registers */ 


signal( SIGINT, onintr ); /* Treat “C like .ex */ 


arge = getargs(argc, argv, Argtab, 
sizeof (Argtab) /sizeof (ARG), usage); 


PAGE = Fpage: /* 


x 


Number of first page of 
document as per -n argument. 


if( *Plist || Even || Odd ) 
get_pglist(); 
Ofile = stdout; 


do { /* process a single input file */ 


INLINES = 0; 
if( arge <= 1 ) 
{ 


Ifilename = "" ; 
Ifile = stdin ; 


else 
Ifilename = *++argv ; 
Ifile = fopen( Ifilename, “r" ); 
if( !Ifile ) 
{ 
err ("Can't open input file <%s>\n", 


Ifilename) ; 
break; 


} 
/* The setvbuf call puts us into unbuffered 
* input mode. 
a 
if( Unbuf ) 
setvbuf( Ifile, NULL, _IONBF, 0 ); 


process( Ifile, Ifilename, 0, 0 ); 


fclose ( Ifile ); 
} while( --arge > 1 && ‘!Quit ); 
brk(); /* Flush output buffer a/ 


/* Do the end macro if there is one. If we 
* don't clear Quit before expanding the macro, 
* getline() will return end of file and the macro 
* won't be executed. 
«/ 
if( *Endm ) 
Quit = 0; 
expand_macro(Endm) ; 
} 


mac _clean(); 
exit( 0 ): 


/* Delete all macros disk files */ 


End Listing Fourteen 


Listing Fifteen 


/ 
NRCMD .C 


Copyright (c) 1987, Allen I. Holub. All rights reserved. 
This module contatins the routines to process individual 
commands. Rotines are accessed via the Cmdtab (see nr.c 
and below 

/ 


sue 4 2 eH OH OH 


#include <stdio.h> 
#include <ctype.h> 
#include “nr.h" 


extern CTAB Cmdtab[) ; 

extern int Ctabsize ; 

extern char *skipto(), *skipspace(): /* in tools.lib */ 
extern char *psearch() ; 

/* mo eoree ete dee bee acta ie ene moines anni a es wn Seas reas reine ee ete Somme ante SER eee ee eT aes x / 


cmdcmp( matchstr, cp ) 
register unsigned char *matchstr; 
register CTAB *cp; 


{ 
/* Comparison routine used by search called in 


* command() below. 
s/ 
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[ 8 ew enn wn eo  -  -  e  e eee  e xf ; : 
lup to 26 pop-up paige a * library feature to gather 
int numarg(s, offset) screen). For batch files also. sevens 
char eee; , 
Cee ers Kechriesn ren © Royalty free. Not copy protected. 
/* Get value of a numeric argument from *s. If the management. 
* number is followed by an i, inches are converted “s ee 
* to spaces. If the number is preceeded by a 't' or — = | 
* a ‘-' offset is set to 1. The argument may be an — « Relguaye RRCUCIAN 
* expression and spaces are ignored. However the -Pasealts}, C, Cobol, 
* argument must have been enclosed in double quotes oe | DAVTIAT . 
* for a space to be part of the argument. S is For IBM PC/XTIAT and 
* advanced past the numeric componant and any — 
* trailing whitespace. Return the value of the 
* argument. 
x / 
int error; 
extern int getvar(), null(); 
extern double parse(); 
double val = 0.0; 
if( **s ) 
{ 
if ( *%s ==_ ‘4! ) 
(5) te PS Circle no. 372 on reader service card. 
} 
else if( **s5 == '~! 
*offset = 1; . 
EXIM ToolKit 
val = parse( s ); ‘ 
BASIC Programming Support from EXIM Services 
return( (int)val ); EXIM Services announces the EXIM ToolKit. A 
Magis growing Library of over 65 Assembler and BASIC 


splitfields( , j 
char Shine eigen” M@ Video/Screen B I/O File 
7 5 pe eagement Management 
* Split cur into t fields. OS Envi i : 
: at the begining of the mee we ae eer ie Data BASE Managemenen = a3 fithmetic 
: en @ Gen 
Leading and traili es eral Purpo 
+ fleid fe" tkipped quoted srgaeacs soon, the, First Add Fone actly, Decrease Development Time and 
sealing eerere iete even if the quoted Add Functionality to Your Applications So 
s space. . 
/ A must addition for software developers using Mickabas 
eeyldtiiiticdiar’ api ona ee or IBM compilers. This high quality, low cost 
Mi lOrary offers developers th 
oo wre @ adva 
p- eel papi te Esc); sophistication. ntages of Power and 
ift sp ae) Window or Frame Screens and Messages... . Save/Re 
seh ibe Store Full or Partial Screens... Accelerated Screen 
P= skipto('™', p, Esc) ; Displays... , Horizontal/ Vertical Scroll-Full or Partial 
else Screen... Display “Pop Up” Help Screens . . . Find the 
i tones First/Next Directory Entry... Sorting... etc 
P = skipto('! *e 8 ): Eas t j j ® = 
, sc = : . os high quality, the EXIM ToolKit is being offered 
LH} nly 985.00 plus $5.00 shipping and handling, with a 
oe Te /* Terminate current field */ full money back guarantee, 
P = skipspace( p, Esc ); /* skint ‘ “Ifyou are not completely satisfied, retu 
live satel fo ee aes, / documentation within 30 days of pur 4 eae 
: /* Strip any, quotes af refund.” purchase for a complete 
*skipto('', +45, Esc )= 0: 
} ; Do not be left behing Brin icati 
. 9 yOur applicat i 
: ‘tee this NO RISK offer PP!cations up to date with 
x N i i j 
ree ee nk _ 0 licensing Or royalty fees are required to distribute ap- 





register unsigned int 1, r; 


D( printf (“comparing %2.2s ", matchstr) ); 
D( printf(“and %2.2s, " » cp->cmd ) ); 


1 = matchstr [0]; 
r = (cp->cmd) [0]; 


if( l =r) 
{ 

1 = matchstr([l) ; 

r= (cp->cmd) [1]; 

if( isspace(l) ) 

l1=$0>; 

} 
D( printf("returning %td\n", 1 - 4r) ); 


return( 1 - fr ); 


command( first ) 


char 


*first; 


HIGH SCREEN™ includes: 


e Complete, powerful and super 
fast screen editor. 

© Automatic field checking: 
variable type, range . . . Field by 
field or full screen option. 


_ © Help and window management 










Programming Modules: 























plications using the EXIM ToolKit 


e Extra goodies for the PRO: 
* on-line extended character set 


¢ scrolling within a zone 


* ability to call a screen for 
reference from DOS or any 


language editor 
















EXIM SERVICES OF N.A > EXIM <0 
P. O. BOX 5417 eB 
CLINTON, NEW JERSEY 08809 


Circle no. 371 on reader service card. 





(Continued on next page) 





(201) 735-7640 
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Parallel Programming for “C” 


INTERWORK 
A Concurrent Programming Toolkit 


Interwork is a “C” program library which allows you to write 
your programs as a set of cooperating concurrent tasks. 
Very useful for simulation, real-time applications, and ex- 
perimentation with parallel programming. 


FEATURES 
* Supports a very large number of tasks (typically more 
than 100) limited only by available memory. Low over- 
head per task results in very fast context switching. 
Provides a full set of inter-task communication (ITC) 
facilities, including shared memory, locks, semaphores, 
blocking queues, and UNIX*-style signals. Also has 
building blocks for constructing your own ITC facilities. 
Handles interrupts (DOS version) and integrates them 
into task scheduling. Supply your own interrupt handlers 
or block tasks on interrupts. 
¢ Lets you trace task switches and inter-task 
communication. 
¢ Comes with complete documentation including a user's 
manual and reference manual of commands. 


Interwork is available for the following systems: 


Hardware Operating System 
IBM PC, XT, AT PC-DOS 2.0 or later 
IBM PC AT XENIX* 

DEC VAX; SUN III UNIX 4.2BSD 


PC-DOS version is compatible with DeSmet, Lattice, and 
Microsoft C compilers. 
Please specify hardware and operating system when 
ordering. Shipping and handling included; COD orders 
add $2.50. Send check or money order to: 

Aw Block Island Technologies 

Innovative Computer Software 

13563 NW Cornell Road, Suite 230, Portland, Oregon 97229-5892 


(503) 241-8971 


*Trademarks: UNIX, AT&T Bell Laboratories, Inc.; XENIX, 
Microsoft, Inc.; VAX, Digital Equipment Corporation 








Circle no. 263 on reader service card. 


C CODE FOR THE PC 


source code, of course 












—— SS Oe 


GraphiC 3.0 hi-res color plots . $300 
Panache C Program ‘xenerator . $125 
QC88 C Compiler... - - + + + $90 
Goncurrent C.. 2 kee ee 8 $45 

. $45 


Coder’s ProloginC . +--+: >: 
Biggerstaff’s System Tools ...- - 940 
Translate RulestoC .-+--+::°: $30 
TRS Coc eee we + Oe $25 
WAC Se PREP ote 6 ntugu ete $25 
tiny-c interpreter & shell oS Mile: eee 
C Tools... $15 





The Austin Code Works 
11100 Leafwood Lane 
Austin, Tezas 78750-3409 
(512) 258-0785 


Circle no. 250 on reader service card. 
Free shipping on prepaid orders No credit cards 


Circle no. 250 on reader service card. 
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Listing Fifteen _ 
(Listing continued, text begins on page 96. ) 


{ 
/ 


* 
x 
x 
x 
* 
x 
x 
x 
x 
2 
* 
* 
x 
* 
x 
® 
x 
x 
* 
x 
x 
* 
® 
x 
® 
* 
x 
® 
* 
* 
* 
* 
x 
x 
* 


Process a command found in "first". Do this by finding 
the command in Cmdtab. If the command is found then 
the associated subroutine (in the Cmdtab) is executed. 


The calling convention depends on the command type. 
There are 4 types: 


type 0: -xx <optional string> 

type 1: -xx <number> <optional string> 

type 2: -xx <string> <number> [optional tail) 
type 3: -xx <string> <optional string> 


A <string> is passed null terminated with leading and 
trailing white space or quotes stripped. A <number> 
is passed as an int. An <optional.string> is passed 
without trailing white space or leading and trailing 
quotes stripped. 


Type 0: (* action) ( str, dobreak ); 
char *str; 


Type 1: (* action) ( val, str, offset, dobreak ) 
Type 2: (* action) ( val, str, offset, dobreak, tail) 
double val; 
char *str; 
char *tail; 


. 
e 

. 
’ 


Type 3: (* action) ( leftstr, rightstr, dobreak ); 


char *leftstr, *rightstr ; 


Note that command() will mess up the input string, 
putting a null after the first character. If you need 
to keep the string around for longer than one command, 
copy it somwhere safe. 


Pay 


extern CTAB *search(); /* routine to search for cmd */ 
register CTAB *cmd ; /* current command a] 
char *second ; /* points at second argument */ 
char *D ; /* general-purpose pointer a/ 
int val -0; /* value of numeric argument */ 
int offset =-0; /* true if val is an offset */ 
int rval =0; /* return value a/ 
int dobreak ; /* True if a normal Cmd char, 

* false if a nobreak command 

* char. 

al 


dobreak = (*first++ == Cmd_chr); 


while( *first é& (*first & Ox7f) <= "fj 
first++; 


LT ( \*first ) /* This is a comment line «/ 


return 0; 


co * rch(first, Cmdtab, Ctabsize, 
ee eee ; sizeof (CTAB), cmdcmp); 


if( !cmd ) 


/* Command isn't in the table. See if it's a 


* macro. Print an error message if it isn't. 
*/ 


' nd macro( first ) ) 
sis eit ae not a command or macro\n", first ): 


return 0; 
} 


»/ 
->inhib ) /* Input is inhibited. See 

_ Tete ~ /* See doif() in nrmsc.c “% 
/* for details. / 


ie fie 2 ; /* advance past the actual 


/* command. 


if( emd->type — 0 ) 


first = *first ? skipspace (first, Esc) : omd->def; 


neg: O00 8 ) 
net se iictot"™*« ++first, Esc) = 0; 


rval = ( * (cmd->action)) ( first, dobreak ); 
goto exit; 
} 


split fields ( éfirst, &second ); 


switch( cmd->type ) 
{ 


case 1: p< *first 2? first : emd->def ; 
val - numarg( ép , éoffset ): d, offset, 
rval = (*(cmd->action) ) ( vate Ses dobreak); 
preak; 

case 2: 


p = *second ? second : cmd->def ; 
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val = numarg( ép, éoffset ); 


p = skipspace(p, Esc); 
ET *p aan e\ oe ) ; , 
*skipto('\"', ++p, Esc) = '\0'; 


rval = (*(cmd->action))( val, first, offset, 


dobreak, p ); 
break; 
case 3: 4 , 
= -> on))( *first? first: cmd->def, 
tia earn ere second, dobreak); 
break; 
3 
_eee err("** Internal Error, bad type: %d in Cmdtab\n", 
cmd->type ); 
break; 
} 
exit: 


return( cmd->inhib ? 0: rval ); 
} 


End Listing Fifteen 


Listing Sixteen 


#include <stdio.h> 
#include <hash.h> 
#include “"nr.h" 


| 
* NREG.C 
x 
* Copyright (c) 1987, Allen I. Holub. All rights reserved. 
5° 
* This module holds routines for mainpulating and accessing 


* number registers. 


static int Regnum = 0; /* Used to print number registers */ 


HASH TAB *Nregs = 0; /* Hash table that holds number */ 
7 /* registers. */ 


[ Ba ww mmm nn nnn nnn nn af 
init_nreg() 
{ 


extern NREG *putnreg(); 
int garbage; 


Nregs = maketab( 127 ); 


Nrpg = putnreg( “%" , ARABIC, DEF PAGE, 0,1,1); 
Nrargs = putnreg( ".$", READONLY, DEF_NARGS, Oty} s 
Nrlines -« putnreg( ".c", READONLY, DEF_INLINES, ia 
= t = 2%, READONLY, DEF VERT, vi,l)? 

iefont: = eaters “.f", READONLY, DEF FONT, 0,3,23% 
Nrindent = putnreg( ".i", READONLY, DEF_INDENT, 0,1,1); 
Nrllen = putnreg( ".1", READONLY, DEF _LINLEN, 0,1,1); 
Nrtlen = putnreg( ".n", READONLY, DEF_TEXTLEN, 0,1,1); 
Nroffset = putnreg( ".o", READONLY, DEF OFFSET, 0,1,1); 
Nrple = ic © et ONLY, ghvahi 
Nrtotrap = putnreg( "\En, neapeney, DEE RSLEN,” 0,202); 
Nrfill = putnreg( “.u", READONLY, DEF FILL, O,3,1)3 
Nrv = putnr wiv", NLY ‘ é : 
Nrdl = putrirest main” MAIC. : DEE wipTa, oa), 
Nrdn ™ putnreg( "dn", ARABIC, DEF_HEIGHT, 64.1): 
Meh’ = putnreat aet,” ARABIC. DBPTOMY, 0¢1/1); 
2 = Putnreg( “n", 7 0, 1,1); 
Nrin ™ putnreg( "ln", ARABIC, DEF LINE, 0,1,1); 
Nrnl ™ putnreg( "nl", READONLY, 1, ~ 0,1.1); 
Nrm = putnreg( “m", ARABIC, 0, 1) Ledte 
Nrmo ™ putnreg( "mo", ARABIC, DEF MONTH 0,1,1); 
Nrs = putnreg( “s", ARABIC, Be. ° 01,1): 
Nrdw ™ putnreg( "wd", ARABIC, 0, 0,1,1); 
Nryr ™ putnreg( “yr, ARABIC, DEF_YEAR, 0,1,1); 


time( &HOUR, &éMIN, &SEC, égarbage ); 
date( é&MONTH, &DAY, &YEAR, &WEEKDAY ); 


WEEKDAY++; /* Translate 0-6 to 1-7 for compatability */ 


not_deletable( name ) 

char *name; 

{ 
/* Return true if name is a pre-defined but not read 
* only number register. 
=7 


register int el, ¢c2; 


cl = name[0}; 
c2 = name[1); 


return( ( cl == "4! g¢ c2—= 0) |] 
( cl == "@* ¢¢ C2 a= rao 4) 
(cl == 'd* ¢¢ C2 = PRT). ch} 


(continued on next page) 
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| the dBx™ translator 


7 : -a@Bx produces quality C direct 


from dBASE II or III programs. 
® Move dBASE programs to UNIX or other machines. 


e Improve program speed and reliability. 
e Support multi-user/network applications. 
e With power guidebook of conversion hints. 


e Includes full screen handler and uses your 
current C database manager. 


e May be used to move existing programs or help 
GBASE programmers learn C easily. 


e For MSDOS. PCDOS, UNIX. XENIX. Macintosh, ‘te 
(Uses ANSI.SYS driver on MSDOS, CURSES under UNIX) 


e Priced from $350, also available from distributors. 


dBx is a trademark of Desktop A\i 


4720 Post Road E., Westport, CT 06880 §MCIMAIL » DESKTOPAI 
Phone « 203+255 +3400 Telex * 6502972226MCI 


Circle no. 258 on reader service card. 





Programmers: 


Turbocharge your 
productivity with PL/PC 


PL/PC is a new programming language based in large 
part on APL (A Programming Language) with Modula-2 
control structures. It offers an integrated interactive 
programming environment for the rapid 
implementation of applications. 








Structured programming is supported with Modula-2 control 
structures, block structured declaration of subroutines and automatic 
Pparagraphing of subroutines. Multi-dimensional alTayS are easily 


data types are extended to include complex numbers and Strings. A 
full-featured full screen text editor is included, the editor will 
automatically position the cursor at the point in the source code where 
the last compile-time or run-time error was detected. Data are edited 
with a spreadsheet like data editor. English keywords are used 
instead of APL symbols, eliminating the requirements for special 
keyboard, character generator and _ printer. DOS files can be 
structured to be manipulated as a single data item of any dimension or 
data type. Graphic applications are supported with routines to draw 
lines, points, polygons, circles, conic sections and manipulation of data 
to/from screen. Debugging facilities include tracing, stopping, single- 
stepping, timing and profiling. 


PL/PC requires an IBM PC or compatibles with at least 360K of 
memory and DOS 2.11 or higher. 


Creative Computer Software 


117 York St., Sydney, NSW 2000, Australia. 
Phone: (02) 261 1611 Fax: (02) 264 7161 
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Listing Sixteen (Listing continued, text begins on page 96.) 


cl == 
el == 


‘a?’ - Gh -e2 
{ el 

( 

( 


‘h® «6 ‘e2 
"1" €€ “e? 


eee ee ee ee 
ee ee ee ee 


cl== 'm' 6& c2 == 
, cl == '‘'y' €6& c2 == 
[ Bowman nn nn nn nnn wn nn = = = == = / 
Hee ee eee ew ee eee ee ee ee * 
NREG *putnre 
oer ae g(name, fmt, val, offset, create, incr_amt) 
int 


fmt, val, offset; 
Change the value of any field of 

a numbe 
register called "name." If the number ceakater 
does not exist and "create" is true, then create 
it. Offset is treated as follows: 


offset < 0 number register 
offset = 0 number register 
offset > 0 number register 


not modified 
= val 
+= val 


If fmt is non-zero put it into t 

else leave the nimt’ field te uites Mike 
incr_amt. Number registers who's format is 
READONLY can't be modified. Return a pointer to 
the register if it was found or created or 

NULL if register not found and/or not created. 


» * )» *#e eee He He He hhUrhUrhUhMhUrhlU 


~s 


register NREG *pnode; 
if ( *name == '\0') 
return NULL; 


'(pnode = (NREG *) findsym( Nregs, name )) ) 
if( !create ) 


err("Number register doesn't exist\n"); 
return NULL; 
} 


pnode = (NREG *) addsym( Nregs, name, sizeof(NREG)); 


pnode->nfmt = ARABIC ; 
pnode->nval = 0 ; 
pnode->incr_amt = 1 ; 


} 
if( pnode->nfmt == READONLY ) 







‘Cc’ THE BEST 
METACOMCO’S 





Full implementation of 


Fa “Cc”? COMPILER Kerninghan and Ritchie — 
+ FOR ATARI ST 
Sand AMIGA 


Based on Lattice’s very successful 


range of 8086/88 C Compilers. 





















—also available— 


Macro Assembler - Professional development system .....----- ST - $ 79.95 

Amiga - $ 99.95 
BCPL - NEW! Full standard BCPL compiler - ST... 6..-e esses cere $149.95 
Lattice ‘C’ - The well known Lattice ‘C’ compiler - ST ..:..----++. $149.95 


Cambridge Lisp - The interpreter/compiler - ST & Amiga....------ $199.95 
MCC Pascal - Fast ISO/ANSI standard compiler - ST & Amiga..... $ 99.95 
Metacomco MAKE - NEW! UNIX-like MAKE utility for the ST...$ 69.95 
MENU + - Best selling ST MENU generator... ...-- +--+ 2-2 sree $ 29.95 
Metacomco SHELL - NEW! Amiga’s intelligent programming shell 
Metacomco TOOLKIT - Smartest tools available for the Amiga ....$ 49.95 
Cambridge LISP - CP/M-68K - $295. Call for Sinclair QL products. Languages come 
with full documentation, libraries & screen editor. ST languages include MENU + and pro- 
vide full interfaces to GEM VDI and AES functions. Metacomco provides experienced 
technical support and keeps its customers informed of new products and upgrade releases. 


METACOMCO 


5353 #E Scotts Valley Dr. 
Scotts Valley, CA 95066 











Contact your local dealer or call: 
Tel: (US) 800-AKA-META (CA) (408) 438-7201 
BIX: mhill Compuserve: 73247,522 
Add 612% tax if CA resident 









Registered trademarks: Lattice - Lattice, Inc; Atari ST - —— 
Arari; UNIX - Bell Labs; Amiga - Commodore Amiga. CEE aS 
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err("Can't modify a read 
return (NREG *) 3: ad/only number register\n"); 


) 


if( incr_amt ) 
pnode->incr_amt = incr amt ; 


if (fmt) 
pnode->nfmt = fmt; 


if( offset >= 0 ) 
{ 


if( offset ) 
pnode->nval += val ; 
else 

, pnode->nval = val ; 


return (pnode) ; 


~ 


rm_nreg (name) 
char *name; 


{ 
coo number register "name" if it exists. 


register NREG *node; 
if( ! (node = (NREG *) findsym( Nregs, name )) ) 
err("Can't find number register <%1.2s>\n", name ); 


else if( node->nfmt = READONLY || not deletable (name) ) 
err("May not delete pre-defined number register\n"); 


else 


delsym( Nregs, (BUCKET *) node ); 


prnt( name, p ) 
NREG 


*D; 


printf("%2s = %4d (format = %c, incr by %d)", 
name, p->nval, p->nfmt, p->incr_amt); 


FF ec 


PROGRAMMERS 














LS 
r 


On-Line HELP! Function Library 

HELP! is an on-line utility library that gives your software instant, 
context—sensitive, pop—up HELP! windows at the touch of a key. Link your 
C code with the HELP! library, tell HELP! which window is current, and HELP! 
does the rest — fast. HELP! writes directly to video memory with no flicker 
or snow. 


fa 
a 


SS 


























HELP! Runs on PCs B+W or CGA. Source code is 


available. 


HELP! Composer 
Compose your HELP! windows interactively. Control HELP! window text, size. 
colors, position, borders, titles. The HELP! Composer runs as a standalone 
utility or link it along with your programs to watch each HELP! window 
take form against the backdrop of your own screen designs. The HELP! 
Composer builds an ASCII text file to describe all the HELP! windows for 
each application. 


and compatibles, 


















Complete Windows and Pop-Down Menu Library | 
A bonus: Use the window and pop—down menu functions from the HELP! 
library in your own programs. This is a complete C window package. 
Open and close windows, fill windows with text, scroll, select wifh a cursor 
bar, promote a window from the background, move a window. 


Window Text Editor 
Use the full-featured, window—oriented HELP! Text Editor to collect text 


data into your application. Open a window and call the editor. 











HELP! links with programs compiled by most MS—DOS C compilers: Aztec, 
CI—C86, Datalight, DeSmet, Eco—C88, High C. Lattice, Lets C, Microsoft, 
Whitesmiths, Wizard. Most memory models are supported. The HELP! 
distribution package includes libraries, a © demo program, and a 
complete Programmer's Manual. 







HELP!: $49. HELP! with Source Code: $149. Demo diskette: $10, deducted 
from your order. Specify compiler. MasterCard and VISA are accepted. (FL 
residents add 5% sales tax.) 


C SOFTWARE TOOLSET 
2983 Newfound Harbor Drive — Merritt Island, FL 32952 — (305) 453-0257 
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printf ( (++Regnum & 2) 2 "\t} “oz "\r\n" ); Listing Seventeen 


pr_nregs () NRGLBLS.C: Global variables used by several modules 
{ 


x 
* 
/* Print out the values of all the number registers : Copyright (c) 1987, Allen I. Holub. 
s/ 
x 


Global variables used by the various nroff routines 
Regnum = 0; » 
ptab( Nregs, prnt ) 


intft(" Th r %d number registers\r\n", Regnum); 
Pe eR ee bie saab #include <stdio.h> 


#include "nr.h" 


nrtoi( p, fmt ) Nodes for pre-defined number registers 
x . 

*fmt ; 

/ 


*Nrpg 
Return the value of the number reg. variable conerae 
whose name is in string. Fmt is modified to be *Nrlines ; 
the contents of the registers format field. ee ; 
If *p is a +, the number register is ooo ; 
auto pre-incremented, if it's a -, it's pre- Sa ndent ; 
decremented. If it's 0, it isn't modified. Nrllen 


Non-existant number registers evaluate to 0. *Nrtlen 
/ *Nroffset ; 


*Nrplen 
ss : *Nrtotrap ; 
er ade - ; j *Nrfill 
® ° *Nrdl 
NREG node ; Saedin 
*fmt = ARABIC; /* Default error return values */ ene 
rhp 
if( !*p ) *Nrin 
NREG *Nrmo 
err("Missing number register name\n"); *Nrnl 
else *Nryr 
NREG *Nrdw 
if( *p == "=" || *p —— t+! ) NREG *Nrh 
ae * + me ‘4! t= ; NREG *Nrm 
i (*pt+ i 22 1 onan aoa 
if( node = (NREG *) findsym(Nregs, p) ) NREG 
{ 


* 
x 
x 
x 
x 
* 
* 
x 


*fmt = node->nfmt ; 
node->nval += ( node->incr_amt * i ); 
rval = node->nval ; 


Tabstop is an array of tabstops, indexed by column number. 
Q means no tab stop in that column, 'R' means right 
adjusting, 'L' is left adjusting, 'C' is centering. Tab 
positions are all increments of spaces from the left 
margin. The leftmost column is column 1. tabs are set 

and cleared by tabset() and tabclr() (in nrmsc.c). They 
are used in nrtext.c 


End Listing Sixteen (continued on next page) 


} 
} 


return( rval ); 


“ets ee» @ H 





Ever Program On A Silver Platter?? 


How much would you expect to pay for a 32 bit MC 68000 computer that’s a mainframe condensed down into a keyboard? How 
about $177.00!!?? If it makes you feel any better simply add a zero to the price when you order! But that’s actually our price!!! 
The most powerful computer money can ever buy is now the most inexpensive computer money can buy!!! So don’t buy the 
name! Buy the power!! The power is not in the name! 


If you had the opportunity to work amongst Machine Code ROM Designers, VAX & UNIX wizards in a research 
laboratory, designing an MC 68000 based computer that’s 2nd to none. . . : 


What would you come up with?? And what would you call it?? 


Well It’s Already Been Done!! 
They Called It The QL For The Quantum Leap It Is!! 
Absolutely a Quantum Leap beyond what you know & use - and it’s truly like Programming on a Silver Platter!! 


The QL Desktop Minicomputer: Designed by SRL Labs, manufactured by Samsung. A total Quantum Leap beyond all the rest! 
Virtual Memory, Multitasking Job Control, Multiuser Networking, Drives in Cache Memory, with Automatic Directories & File 
Names up to 36 characters! Everything is built into ROM! QDOS, Networking, 32 Bit SuperBasic: a totally concurrent non- 
destructive environment. Unlimited quantities & lengths of: Variables, Program Lines, CONsoles & Buffers. Dynamic RAM Disk- 
ing! Even a System Variables Brain Page Screen! Built-in DCE & DTE Serial Ports. 


Imagine a 32 bit SuperBasic structured like Turbo Pascal, always there with QDOS in a UNIX-like multitasking job controlled en- 
vironment with access to 32768 fully channeled windows, devices & files by EACH job! 3 Major Compilers exist for SuperBasic 
source alone! TURBO, SUPERCHARGE, LIBERATOR. Also runs **C’’, Pro Pascal, Pro Fortran 77, LISP, BCPL, 68000 
Assemblers, JCL, APL, Forth-83, 65C02 or 8088 Cross Assembly. Generate native 68000 code. Compile SuperBasic source code or 
ANY other language and then multitask and control it in QDOS or even with SuperBasic in the Interpretor! The list of ALL the 
Superior Features would fill this entire journal! 





Assembled QL comes WITH Integrated WP, SS, DB & Presentation Graphics Program Package by PSION! Also available in a 
built, final assembly KIT Form for another $25.00 LESS!!! PLUS: FREEWARE Demos & Utilities with all purchases! [7 At 
Authorized 


C all: (201) 32 8 8 8 4 6 Technical Info & Assistance - - So 
° Bigs Our Phones are Manned 24 Hours a Day Ft 
QLine BBS: 328-2919 Lot Purchases Available. We Direct Distribute. 


Quantum Computing, Box 1280, Dover, NJ 07801 
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SAME DAY SHIPPING (USUALLY) 
QUANTITY ONE PRICES SHOWN for JAN. 18, 1987 


ICs PROMPT DELIVERY!!! 





OUTSIDE OKLAHOMA: NO SALES TAX 


e 8 ° . . . 
Listing Seventeen (Listing continued, text begins on page 96. ) 

EE aan | CXNAMIC RAM ots 5 ) S pags 
gam 51258 9 *256Kx1 100 ns ' aur 

Kem 4464 64Kx4 150 ns .29 Be 0, 

Mem 41256 = 256Kx1 100ns : e at = “ 5 +, fi -. _ 

gem 41256 = 256Kx1 120ns ‘E8s: BY 0.06.5. 0, ee 8.10. 

< @ 41256 256Kx1 150 ns i ee ee 8 AO, Oe Uy Oy 0, 

cae 4164 64Kx1 150 ns ; mat * ee ° “ < - - 

O56 EPROM oo ‘ e ‘ e e e ‘ ‘ e 

hem 27512 = 64kx8 200ns er ee aaah eh ran oF 

rem 27C256 = 32kx8 250 ns re ogee eat en are Vie coe yer 

eee 27256 = 32kx8 250 ns oes 'L', 0, 0, 0, 0, 0, 0, 0, 

fm 27128 16Kx8 250 ns re MES Oe Ge Os Os Sy, 0,-D, 

= > ty 

em 27C64 = akx8 200s 0® ean at gre: at. garnet 

20 L e G,. 0, 0, 0, 0, 0, 0, 

wae 2764 8Kx8 250 ns co tO 8. 0, * Oe Oy. 8, 

F STATIC RAM — 17°, 6,20;-6, 20, 0, 0, 2; 

eed 43256L-12 32kx8 120ns 38 Lt, 05°0,..07) 6, 0, O50 

6264LP-15 skx8 150ns be 

OPEN 6%/2 DAYS, 7 am-10 pm: SHIP VIA FED-EX ON SAT. La ie re A mee tet aie ee ry 


SUNDAYS & HOLIDAYS: SHIPMENT OR DELIVERY, VIA U.S. EXPRESS MAIL 


SAT DELIVERY | MasterCard/VISA or UPS CASH COD 


FONT Fonts[NUMFONTS]; /* Font table. Fonts[0]) defines the */ 





> /* default, non-proportional font */ 
Pe eyDED ON, | Factory New, Prime Parts Poo /* attached to the name R, it is  */ 

RECEIvep By.. | MICROPROCESSORS UNLIMITED, INC. /* created in main(). * / 
Th: Std Air $6/4 Ibs | 24.000 S. Peoria Ave.., i 
Fr: P-One $13/2 Ibs | BEGGS. OK. 74421 (918) 267. 4961 [ Benn nn nnn nn nn en eo $$ $+ $= = = = + 

Please call for current prices because pnces are Subject to. change. Shipping & insurance extra . Msc. other Global variables 

$1.00 for packing matenals. Orders received by 9 PM CST can usually be delivered the next * / 

morning, via Federal Express Standard Air ( $6.00, or Priority One (« $13.00! 

int Adjmode = BOTH ; /* Current adjustment mode “7 
Circle no. 105 on reader service card. int Adjusting = 0 ; /* One if adjusting lines. We can't just use an 


* adjustment mode here because we have to remember 
* the most recent adjustment mode. 


ai 
int Cmd_chr = '.* ; /* Command character 8 
int Cont ul = 0 ; /* Num of input lines to continuously underline */ 
int Divtrap = -l ; /* Distance to diversion trap (-1 if none) =/ 
int Divwidth = 0 ; /* Width of current diversion. This differs from */ 
i ene eatin is the width of the most-recent ry 
* diversion. 
ATTENTION TURBO PASCAL USERS! iii aimee! be. Ts Name Ob waded Aitken Uc end of ‘Sapa ay 
Crash the 64K Barrier int Esc = ‘\\'; /* Current escape character a/ 
int Hyphen_chr = '%' ; /* Soft hyphen is \<Hyphen_chr>. default = \% oe 
n enate = ; 
pipe cheesey lena Me pea ed ge gece ge ey, 
n Ta == ; 77 
Try TURBO PACKAGE now! int Isdiv = 0 ; /* 1 if Ofile is diversion, 0 ; age os 
int Ismacro = 0 ; /* 1 4f£ Ifile is a macro, 0 a 2 
3 oBy ee oars Gualamie int Leader = ',' ; /* Current leader character s/ 
char **Macv = 0 ; /* Macro arguments for current macro level «/ 
a/ 
int Nobreak we ee ge soe She acer “i HA 
3 int Nospace = 0 ; /* Inhibit spacing as per .ns comma 
Modular Programming! int Nr cpmode = 0 ; /* Nroff copy mode, expand \ in macro definitions*/ 
int Num bold =0 ; /* Remaining number of input lines to print bold i: 
int Num center = 0 : /* Remaining os of input er re center x 
Num_ = 0 ; /* Number of input lines to overstrike 
panies GEESE of yee ant am randat - 0  ; /* Remaining number of input lines to underline yi 
CUTS development TIME int Page ch =m 4° 3 ¢* et ete co pens pene Se i 
ie? = 0 ; /* Terminate nroff when set by .e 
IMPROVES system RELIABILITY = vb - ' § ; /* Tab repetition character y 
Tabwidth = 8 ; /* Width of input tab stops 
nL ee Pee TENANCE ue Tabs enabled = 1 ; /* Expand tabs only if true af 
int Tempin = 0 ; /* Temporary indent column, Habe © pig pace zy 
int Title len = 80 ; /* 3 part title line length (set w , cm _ 
i ata t Wordst = 0 ; /* Wordstar-mode output 
Brac Pa ee a Hanke = 120 ; /* Number of Boones coe a an so . 
Boy int H_ space - 10 ; /* Number of horizontal units in a spa 
VERY FEW CODE CHANGES. int Bold = 0 :. /* ae enor a eee es a 
ini in = 0 ; /* Overstrike is currently active 
EASTER ven Spee ees = agile . ee ere = 0 :; /* Italics is currently active */ 
char *Bd on = “ ; /* Send to printer to turn boldface on 
| char *Bd off = "™ ; /* Send to printer to turn boldface off : 
SUPER ATH, FREE! char *Ul on = we ; /* Send to a to turn eee - &? 
i 1 off = “1 ; /* Send to printer to turn underline o 
With purchase of Turbo Package ote lec = "" ; /* Send to printer to turn overstrike on x/ 
th ti cnet Soe are =o : /* Send to erintar to turn overstrike off a/ 
-bit math) routines - 
- Be eat ea i Stra for $ char *Dn str = “ ; /* Send to printer to send cursor ore a iy) 
PaKer - 2 : Fs =o was /* Send t rinter to send cursor up ne 
tev ae = ; 3 his aes \u or \d omds moves one line s/ 
ASM coding insures top performance int Vs amt 1s /* Th Y 
/ 
char *Left str = "\b"; /* Send to printer to go left 
| * tc = © ® ; inter to go right / 
Just $49.95 (in TX add tax) char *Right_str = “ " ; /* Send to pr a 
int Hs amt = 1 ; /* Above moves 1/n spaces 
=/ 
char *Lmarg str = "" ; /* String used in .ml command ay 
° : ‘ char *Rmarg str = ues 6/* String used in .mc command 
Visa/MC Outside Sree a) snippine char Dtrap name[3} = {0,0,0} ; /* Macro executed when Divtrap reached 3 
IBM/PC, XT, AT or compatible MS/DOS char Itrap name[3) = {0,0,0); /* Macro executed when Intrap — 0 
machine and Zenith 2100 * 1 = stdin; /* Current input file sf 
paz caries - giant /* Output file descriptor if 
: : : char *Ifilename = “standard input"; /* name of input file / 
Write or call for more information 
int Nestlev - 0 ; /* Nesting level determined by .{/.} / 
YSTEMS int Nm_on = 0 /* Line ee aS by .nm cmd se gas ie a 
3 - ; *< Jf -¢ then blan nes are numbe ‘ 
ee oer er i ace - i ; fi hie ft acoumant of the most recent .nm command */ 
5371 Verbena Rad. char *Nm str a 9 “; /* The S argument of the most recent .nm command */ 
C= Antonio, TX 78240 int Inhibit = 0; /* Inhibit all text and command processing except 
: : niet 
Phone: (512) 692-0353 . } an 
/ 


End Listing Seventeen 
Circle no. 382 on reader service card. 
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Listing Eighteen 


/* Se ee ee OF Se PF SF Oe 8 OP ee OF 8 OE ee ee Oe Oe OF 8 OF 8 Oe em oe Oe we ee ee ee oe ee ae 
* NRINP.C: Input and escape sequence processing. Also 
* contains process(), the highest level input 
* processing routine. 
x 
* (c) 1987, Allen I. Holub, All rights reserved 
2 


#include <stdio.h> 
#include <ctype.h> 
#include "nr.h" 


#define ishex(c) (('O'<=(c) && (c)<='9') | 
(‘A'<=(c) && (c)<='F') ) 


“a 


#define tohex(c) (('O'<=(c) && (c)<='9') 2? (c)-'O' \ 
: ((c)-'A') + Ox0a) 


static int Abort process = 0; /* Used by escape to tell 
* process to abort the 
* current process. 


xf 
static int New font = 0; /* Used by chfont() */ 
extern char *expandstr(char*, char*, int); /* nrmac.c */ 
extern char *cpy( char*, char* ); /* tools.lib */ 
[| 8 anna nn on ee « / 
gnum( inp, ifile, nextc ) 
int (*inp)(), *nextc ; 
FILE *ifile; 
{ 
/* Get a decimal number from input, the number can be 
* given explicitly or as a number register 
* (ie. \l\n(xx- is legal, it will draw as many '-'s 
* as are specified in the \n(xx number register. The 
* number is returned and *c is modified to hold the 
* first nondigit. 
= 


int oc. 4, sign.= 1-3 
UCHAR name (4); 


if( (c = (* inp) (ifile)) = Esc ) 
if( (c = (* inp) (ifile)) = ‘'n' ) 
{ 


gname({ name, inp, ifile, 1 ): 
i = nrtoi( name, éc ); 
c = (* inp) (ifile) ; 
} 
else 
err("Must use number or number register\n"); 
} 
else 
{ 
if( c=-= '=-'" ) 
{ 
sign = -1 ; 
c = (*inp) (ifile): 


else if ( c = ‘+! 
c = (*inp) (ifile); 


for{ i = 0 ; isdigit(c) ; c = (*inp) (ifile) ) 
{ 


} 


i = (i * 10) + (c = *0*') 3 
} 


*nextc = c; 
return i * sign ; 


/* mee eee ewe we eww oe oe ew wn ew www oe oo wr we oe oo ow oo ew ee * 
gname( name, inp, ifile, nreg ) 

char *name; 

int (*inp) (): 


FILE sifile; 
{ 


/* Get a string or number register name from inp and 
* put it into name. In the case of an autoincrement 
* ( \n-(xx for example ), a leading - or + is put 
* into the name too. 

x 
/ 


register int c? 
c = (*inp) (ifile) ; 


if( nreg && (c == ‘+* {| c == '=") ) 
{ 
*namet+t+ = C ; 
c = (*inp) (ifile) ; 
} 
i044 iG oe 2559 
{ 


*name++ = (*inp) (ifile): 
*namet+t+ = (*inp) (ifile): 


(continued on next page) 
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Megamax C 


for the 


Atari ST 


"Don't even think about 


1! Antic 


another C compiler’ sor 6 


and Introducing: 


Mac-to-GS C « 
Mac-to-GS Pascal 


Macintosh to Apple IIGS cross compilers. 
The fastest development systems for the IIGS. 


Megamax 


Development Systems 


Box 851521 « Richardson, TX 75085 
(214) 987-4931 « Telex 5106018356 
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Listing Eighteen (Listing continued, text begins on page 96. ) 


} 
else 
*namet++ = c ; 


*name = 0; 


| Roemer en ewe enw nn meme ec e we me ewe enn e ence eee nce neue a/ 
#define get_quote(str) if( (*inp) (ifile) != '\'' ) : 
{ 
err("Missing quote in %s\n", str ); \ 
break; \ 
} \ 
else 
/* SLL LS LL MOM LS OOS OS OO REE Ss DERE OSE EEO Eee EE eae ae eee x/ 
int escape( tstart, target, copymode, inp, ifile, maxch) 
UCHAR *tstart, **target; 
int (*inp) (); 
FILE *ifile; 


/* 


#i 


~s 
* 


{ 

Expand escape sequences, using inp() to get 
additional input when required. Expand at most maxch 
characters. Target is modified to point past the 
expanded string. The input character following the 
escape sequence is returned. 


Tstart is the array into which characters go. *target 
is the current location in that array. The input 
character following the escape sequence is returned. 


Note that the string "\t" will actually put a tab 
Character (unexpanded) into the input stream. An ASCII 
“I or a \T, will have been expanded by getline(). 


Copy mode is a subset of normal mode used for macro 
definitions. In normal copy mode (Nr_cpmode = 0) the 
only recognized escape sequences are \" and 
\<newline>. Other sequences are just copied to the 
target string. In nroff-compatible copy mode 
(Nr_cpmode != 0), the following are recognized: 

a! \. \\ \* \S \n \" \<newline> 


"ee eo ee eel hl hl lke eo 


Nested \* expansions are supported and the strings 
can contain other escape sequences (like \nx). Note 
that nesting is handled recursively in that 
expandstr(), called below, will call escape() to 
expand internal escape sequences. For reasons of 
nroff compatability \{ is mapped to .{ and \} will 
cause process() to terminate immediatly after doing 
the line on which the \} was found, as if it had 
seen a .} 


se een ee ee He MH 


~ 


Se SE SO SP Se Sema See ON ew ew ae eam i a ae se tas ws sh aw wa ep tev n> Sov ees 0 ew chs sw wenn ss cs Me er ees cee x/ 
register int i; f* eperery 
int C3 /* current input character s/ 
int 43 /* temporary */ 
int linechar; /* line-drawing character */ 
UCHAR *bp; /* general-purpouse pointer */ 
UCHAR "dest; /* Pointer to target array s/ 
UCHAR name([8); /* string or number reg name */ 
static UCHAR temp(80); /* buffer used by itoascii() */ 

/* to translate number =/ 


fdef DEBUG 
printf ("escape:targ=0x%x, cpymode=%d, inp=0x%x, maxch=%d", 
target, copymode, inp, maxch ); 
printf ("\nescape: macv = 0x%x\n", Macv); 
for( i=10 ; Macv && --i>=0 ; ) 
printf ("escape: %2d: <%2.2s>\n", i, Macv[(i) ); 


#endif 
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dest = *target; 


/* Cases in the following switch are expanded whether 
* or not we're in copy mode. "c" holds the character 
* following the escape character. 

a/ 


switch( c = (*inp) (ifile) ) 
{ 
case '\"'; 


/* Throw away input up to the newline or end of 

* file. Then delete all white space preceeding the 
* comment. Use “goto exit" in order to avoid 

* getting another input character. 

“f 


while( (c= (*inp) (ifile)) != "\n' ¢@ c != EOF ) 


while( *--dest == ' ' || *dest —= "\t! ) 
if( dest < tstart ) 
break; 
t++dest ; 
goto exit ; 


case ‘\n': /* line continuation, just eat the \n */ 
goto newchar; 


default: 
if( copymode «&é !Nr_cpmode ) 


} 





/* In non-nroff copy mode, only \" and \<CR> 
* are recognized. Everything else goes 

* through to the output. 

“Ff 


*dest++ = Esc ; 
*destt++ =c : 
goto newchar; 


/* Cases in the following switch are expanded either in 
* nroff-compatible copy mode or when not in copy mode 
* of any sort (because of the goto branch in the default 
* case of the previous switch()). They are not expanded 
* in normal copy mode. 

x 

switch( c ) 

{ 

case ‘,'; 

case '*!; 

*destt+t+ = LITCHAR ; 
*dest++ = c; 
HORIZ++; 
goto newchar; 
case '$'; /* \SN 1 <= N <m Q */ 
/* Expand macro arguments. The leftmost one is in 
* Macv[(0) but, for nroff comapatability we access 
a as \$1. \$0O can not be accessed. 
x 
if( !Macv ) 
{ 
err("\\$<num> can only be used in a macro\n" ); 
goto newchar; 
} 
if( (i = (*inp) (ifile) - '0') <1 it 4-3-8 
{ 
err("\\$n: invalid number, 1 <= n <= 9\n"); 
goto newchar; 
} 
for( bp = Macv[i-1] ; *bp && -=maxch >= 0 : ) 
{ 
HORIZ++ ; 
*destt+t+ = *bp++; 
) 
goto newchar; 
case 'n' ; /* \nx or \n(xx ay 
gname( name, inp, ifile, 1 ); 
i = nrtoi( name, é4) ; 
if( 4 == READONLY ) 
j = ARABIC; 
i = itoascii(temp, 4, i); 
if( maxch < i ) 
err("Buffer too small to expand register\n") ; 
else 
{ 
dest = cpy( dest, temp ); 
HORIZ += i; 
} 
goto newchar; 
case '*! ; /* \* (xx or \*x i f 
gname( name, inp, ifile, 0); 
bp = dest ; 
dest = expandstr( name, dest, maxch ); 
HORIZ += dest - bp ; 
goto newchar; 
default: 
if( copymode ) /* We're in nroff-compatable */ 
{ /* copy mode ve 
1f¢-€ != Esc ) 


*dest++ = Esc ; 


*dest++ =c ; 
goto newchar; 

} 

break; 


/* Cases in the following switch are expanded only 
* when we're not in copy mode of any sort. 


ey 


switch ( c ) 
{ 


case ' ! 


> *dest++ = UP SPACE; HORIZ++; break; 
case '0' : *dest++ = ' T; HORIZ++; break; 
case '|' : /* ignored */ break; 
case '*' ; /* ignored */ break; 





(continued on page 68) 
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ON 
COMMAND: 


Writing a Unix-Like Shell 
for MS-DOS 
by Allen Holub 


T his book and ready-to-use program demonstrate 
how to write a Unix-like shell for MS-DOS. On 
Command includes an enhanced, working version of 
Holub’s popular Unix-like shell, along with a detailed 
description of the Shell and complete C source code 
The techniques you'll learn are applicable not only to 
MS-DOS, but to most other programming environments 
as well. 





You'll find how to do interpretive control flow, a thor- 
ough discussion of low-level DOS interfacing and sig- 
nificant examples of C programming at the system level. 


The Shell’s supported features include: read, editing, 
aliases, history, redirection and pipes, Unix-like com- 
mand syntax, DOS-compatible prompt support, and 
C Shell-based shell scripts. (A new Shell variable 
expands to the contents of a file so a program can 
produce text that is used by Shell scripts.) The Unix- 
like control flow includes: if/then/else; while; foreach; 
switch/case; break; continue. 


The ready-to-use program and all C source code are 
included on disk. The Shell works on IBM PC’s and 
compatibles. 


/UTIL 


When used with the shell, this collection of utility 
programs and subroutines provide you with a fully 
functional subset of the Unix environment! Utilities 
include: cat; cp; date; du; echo; grep; Is; mkdir; mv; 
Pp; pause; printevn; rm; rmdir; sub; and chmod. 
Complete source code and manual are included. 


Receive On Command and /UTIL for only $59.95! 


TO ORDER: Return this coupon with your payment to: M&T 
Books, 501 Galveston Dr., Redwood City, CA 94063. Or, call 
TOLL-FREE 800-533-4372 Mon.-Fri 8 a.m.-5 p.m. In CA call 
800-356-2002. 





YES! Please send me On Command: 
writing a Unix-like Shell for MD-DOS 
with disk for $39.95 


Send me /UTIL for $29.95 


Send me both On Command and /UTIL 
for only $59.95 


Subtotal 
CA residents add sales tax % 
Add $2.25 per item for shipping 
TOTAL 
Name 
Address 
City 
i alate Beticrcemeriion’ 


LJ Check enclosed. Make payable to M&T Publishing. 
Please Charge my LJ VISA (1) M/C (1) AMEX 


Card No. 
Exp. Date 


Signature 
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The Answer to sprawling files and vanishing disk space 


quish 


Short on disk space? 
Your remedy is Squish, a unique 40K resident program. 
Squish compresses large databases up to 90%! 

Text files, spreadsheets, etc. by up to 60%. 


he, 


Sa toe O oy. 





Now for the best part... 


Your other software (dBASE Ill, R:BASE, etc.) 
can read or even update ‘‘squished files’’ 
while the files stay compressed on disk... 
without doing anything to your other software! 


30-day money-back guarantee 
so you have nothing to lose 
and a lot of free disk space to gain! 
PC, XT, AT, 100% compatibles. 


| For information to order: DOS 2.0 or above. 
un 


© 
FF Sundog Software Corporation 


264 Court Street, Brooklyn, NY 11231, (718) 855-9141 
Trademarks/Owners: dBASE IIl/Ashton-Tate, Inc.; R:BASE/Microrim, Inc. 





Circle no. 374 on reader service card. 






FULL AT&T C++ for half the price of our competitors! 


Guidelines announces its port of version 1.1 of AT&T’s C++ translator. As an 
object-oriented language, C++ includes: classes, inheritance, member functions, 
constructors and destructors, data hiding, and data abstraction. ‘Object-oriented’ 
means that C++ code is more readable, more reliable and more reusable. And that 
means faster development, easier maintenance, and the ability to handle more 
complex projects. C++ is Bell Labs’ answer to Ada and Modula 2. C++ will 
more than pay for itself in saved development time on your next project. 


C++ 


from GUIDELINES for the IBM PC: $195 
















Requires IBM PC/XT/AT or compatible with 640K and a hard disk. 
Note: C++ is a translator, and requires the use of Microsoft C 3.0 or later. 






Here is what you get for $195: 

¢ The full AT&T v1.1 C++ translator. 

¢ Libraries for stream I/O and complex math. 

* "The C++ Programming Language”, the 
definitive 327-page tutorial and description 
by Bjarne Stroustrup, designer of C++. 

¢ Sample programs written in C++. 

¢ Installation guide and documentation. 

* 30 day money back guarantee. 


To order: 
send check or money order to: 







GUIDELINES SOFTWARE 
P.O. Box 749 
Orinda, CA 94563 


To order with Visa or MC, 
phone (415) 254-9393. 
(CA residents add 6% tax.) 


C++ is ported to the PC by Guidelines under license from AT&T. 
Call or write for a free C++ information package. 
Circle no. 351 on reader service card. 
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Listing Eighteen (Listing continued, text begins on page 96.) 
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case 'N' : *dest++ = '\n'; break; 
case '-' ; *dest++ = '-'; HORIZ++; break; 
case ‘é&* ; *dest++ = LITCHAR; break; 
case 'z' ; *dest++ = ZWIDTH; break; 
case 't' ; *dest++ = LITCHAR ; /*fall through*/ 

case 'T' : *dest++ = ‘'\t'; break; 
case ‘a' : *dest++ = LITCHAR ; /*fall through*/ 

case ‘A' ; *dest++ = SOH ; break; 
case 'o'; /* superimpose \o'abcd' */ 


get _quote("\\o") ; 
while((c = (* inp) (ifile)) != '\'" 66 
{ 


maxch > 4) 


maxch <== 2 ; 

*dest++ = ZWIDTH; 

*dest++ = (c != Esc) 2? c : (*inp) (ifile) ; 
} 


*dest++ = HMOVE ; 
*destt+ = Hs amt ; 


break; 
HORIZ++; 
case 'x': /* \x<2-hex-digits> */ 
c= (* inp) (ifile); /* c = MS digit a/ 
i = (* inp) (ifile); /* i = LS digit s/ 
c = toupper(c); 
i = toupper (i); 
if( !ishex(c) || !ishex(i) ) 
err("\\x must be followed by two hex digits\n"); 
else 


{ 
/*  \xNN takes up space. If you need to have 
* a zero width escape sequence get to the 
* output in right-adjusted text, use the 


* .ou command or \fX mechanism. 
a/ 
*destt+ = (tohex(c) << 4) | tohex(i) ; 
HORIZ++; 
} 
break; 


case '({': 


edest++ = '.'; 
edest++ = '{'; 
HORIZ t= 2; 


if( c= (*inp) (ifile) — Esc ) 
c = (*inp) (ifile); 


goto exit; 
case '}';: 


/* Setting Abort_process to nonzero forces 
process() to terminate AFTER processing the 
current line. It has the same effect as a | 
command at the beginning of the next line. 
All text following the \{ on the line is 
discarded. (}) 

/ 


+e ee he 8 


Abort_process = 1; 
while( (c= (*inp) (ifile)) != '\n' && c != EOF ) 


° 


goto exit ; 


case ‘e': /* \e printable version of the */ 
*dest++ = LITCHAR ; /* current escape character a/ 
*destt+ = Esc; 
HORIZ++; 
break; 

case ‘ff’: /* Change font \f{RBIOPx} a/ 


if( maxch < 2 ) 


{ 
err("No room in input buffer\n"); 


break; 
} 


switch( c = (*inp) (ifile) ) 


{ 

case BOLD: 

case ITALICS: 

case OVER: *dest++ = CH_ATTRIB ; break; 
default: *destt+t+ = CH_FONT ; break; 


} 


*destt+ = C > 


break; 
case ‘r' /* up 1 line s/ 
case ‘u' /* up 1/2 line a/ 
case ‘d' /* down 1/2 line «/ 


if( maxch > 2 ) 


*dest++ = VMOVE; 
*dest++ = ( c=m— 'r' ) 2? = Vs amt 
( c= ‘ut ) 2? =-max( Vs amt/2, 1) : 


; {4G a E04) sad Va ants, 2y. 3 


break; 
case 'h' /* \hn'N' \h'Nu' Horizontal motion */ 
case ‘yv' /* \v'N' \v'Nu' vertical motion */ 


if( maxch < 2 ) 
break; 


get_quote("\\v or \\h") 
*dest++ = (c == 'v') 2 VMOVE : HMOVE ; 
= gnum(inp, ifile, &c); 


i€¢-c-t=. *y* ) 


*dest++ = i * ((j=—'v') 2 Vs amt : Hs amt); 
else <= : 
{ 
*dest++ = i; 
get_quote("\\v or \\h") 
break; 
case ‘]! /* horizontal line \1*He* */ 
case 'L' /* vertical line | \L'Nc! */ 
/* Note that you can't use an escape sequence for 
: the line character (as in \1'10\x85'). You can 
Say: ? 
* -ds 1i \\1'10\x85' 
* \* (1d 
* however. 
re 


get_quote("\\l'Nc* or \\L'Nc'"); 


Je(c == '1*); /* ; - 1 if horizontal */ 
i = gnum(inp, ifile, éc) ; /* 1 = Nin \L'Nc! a/ 


if ( c— tyer ) 
‘linechar =. 5-7." * “: -* 4" 


. 
’ 


else 2, 
{ 
linechar = c; 
get_quote("\\l or \\L") ; 
} 
while( --i >= 0 && --maxch > 4 ) 
{ 


bd ae | 
*dest++ = ZWIDTH; 


*dest++ = linechar ; 


af¢ 13) 

{ 
*dest++ = VMOVE =; 
*destt+ = Vs _ amt ; 


} 


if( maxch < 0 ) 
err("line drawn by \l or \L is too long\n"); 


break; 
default : 
if( c = Hyphen_chr ) 
*dest++ = SOFT HYPHEN; 


else 
sdest++ = c; /* 


/* \% “7 


\<any char> */ 


HORIZ++; 
break; 
break; 

} 


newchar: 
c= ( *inp )( ifile ); 
exit: 
*target = dest; 
return( c ); 


* Sgetc() is used to process a mode 2 process({) call. 
/ 


sgetc(s) 

UCHAR #% 8; 
{ 
return **s 2? *((*s)++) : EOF ;: 


chgfont( c ) 
{ 
/* If New_font is non-zero a font-change 


(continued on page 72) 
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lew programs 
ym one of the 
iblishers. 


LINKER 


ADVANTAGE Link 


@ Fastest, most powerful PC- 
DOS overlay linker. 

@ First linker to take full advan- 
tage of EMS. 

@ Accepts Microsoft and Phoe- 
nix command files. 

@ Supports 53 commands; more 
than any other linker. as 
@ Compatible with 
Microsoft CodeView 


ADVANTAGE C+ + 


@ New object-oriented language 
lets you develop large and com- 
plex programs with greater 
resilience, fewer bugs. 

e Write reliable, reusable code 
that is easier to understand and 
maintain. 

@ Fully compatible with existing 
C programs and tools. 

@ All the benefits of C without its 








limitations. “ and Pfix Plus. 

® Available for Lattice 

na eee C COMPILER 
ADVANTAGE C 


@ Newest technology based on 
Al and advanced design. 

@ Unmatched execution speed. 
@ Productive, easy-to-manage 
compilation environment. 

@ Advanced optimization rou- 
tines; implements register 


MULTI- 
TASKING 


TimeSlicer 
@ Create multitasking and real- 
time aplications in C now! 


variables. 
@ No need to interface with @ Over 250 library functions; full 
the OS. Tasks can be created, ANSI C library. 


suspended or terminated at e Supports any size memory 


run-time. model (S,M,L). 
@ Optimize processor usage and @ Microsoft C compat- 
transparency. 


ibility; recompiles 
most applications 
without source code 
changes. 


® Create more efficient and 
portable programs. 

@ Compatible with Lattice C, 
Microsoft C, ADVANTAGE C++ 
and object-oriented 
programming. 

e@ Includes header files 
for C and assembly 
language and example 
programs with source 
code. 





Tarrytown, NY 10591 
Telex #510-601-7602 


Australia/New Zealand: 
Charlton Distributors 
Phone: (64) (09) 766-361 
Canada: Scantel Systems 
Phone: (416) 449-9252 


England: Grey Matter, Ltd. 
Phone: (44) 364-53499 
System Science, Ltd. 
Phone: (44) (01) 248-0962 
France: Compusol! 

Phone: (45) 30.07.37 
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GRAPHICS 


ADVANTAGE Graphics 


@ Complete C programming 
graphics library. 

® Create bar and pie charts with 
one command. 

@ Automates easily. 

@ 10 popular font styles. 
@ No royalties or run- 
time fees. 





We make the best 
software even better. 


After 10 years of publishing 
software, we know what's 
important to you. We’re 
committed to full service 
that goes beyond just sell- 
ing you the best software 
at competitive prices. Our 
expert staff can help you 
choose the right programs 
and provide full technical 
support. Count on Lifeboat 
for the complete solution to 
all your programming 
needs. 





cat 1-800-847-7078 
In NY 914-332-1875 


or your local Lifeboat Authorized Dealer. 


The Full-Service Source for Programming Software. 


Italy: Lifeboat Associates Italia 
Phone: (02) 464601 

Japan: Lifeboat, Inc. 

Phone: (03) 293-4711 

Spain: Micronet, S.A. 

Phone: (34) 1-262-3304 


Automation BV 
Phone: (31) 20-10 69 22 
West Germany: MEMA 
Computer GmbH 
Phone: (69) 34-7226 
Omnitex 

Phone: (76) 23-61820 





The fastest, tightest code. v 





(Though the same can hardl 
tent of the name) ; 


We have to tell you, we had a hard smallest, fastest FORTRAN code a 
time getting the name down this short. PC can handle. 
‘ Because Microsoft's new FORTRAN “Now Microsoft's FORTRAN Opti- 
ompuler actually has a tar longer mizing Compiler generates such 


list of features. a fast code that an IBM PC/XT 
It uses the same optimizer and approaches the speed of the VAX.” 
code generator technology that made Poter Osgood, MIT. Project Athena, Director of the 
: . Real Time Lab Project. 
our C Compiler the industry leader. 
5 . : : 
And we've added special loop This compiler has already passed 
. : . : . 5 
optimizations that give you the the toughest test there is. It’s been 
Microsoft FORTRAN Optimizing Compiler Version 4.0. 

@ Full ANSI FORTRAN 77 Compiler with Fastest Executable Code for # Numerous IBM VS and DEC VAX extensions. NEW! 

MS-DOS. NEW! . ¢ Microsoft CodeView: Window-oriented source-level debugger. NEW! 
# Uses the Microsoft C optimizing technology, plus loop optimization. NEW! — Debug using your original source code, the resulting disassembly or 
Execution Speed _— Microsoft Ryan-McFarland _ IBM Professional both intermingled. 
(in Seconds) FORTRAN FORTRAN FORTRAN — Watch and change the values of your local and COMMON variables 

v. 4.0 vzll v. 1.22 as you debug. 
Sieve 7.97 Joo 38.51 —Set conditional breakpoints on variables, expressions or memory; trace 
Whetstone 53.82 58.67 79.04 and single step. 
Lookup 5.82 18.61 26.02 — Watch and change registers and flags as you execute. 
# Fully GSA certified for ANSI 77 compatibility with no errors at the — Easily debug graphics oriented programs since program output is kept 

highest level. NEW! 


separate from debugger output. 





SA-certified as Full ANSI FORTRAN 
7,and 100% error-free. 


“The Microsoft FORTRAN Opti- 
mizing Compiler let us port the 
200,000 line Boeing Mathematical 
Library (BCSLIB) with virtually no 
changes. This ANSI FORTRAN 77 
code was ported directly from Cray, 
CDC, DEC, IBM and other main- 


frames and workstations.” 


Ivor Philips, Boeing Computer Services, Program Manager 
Mathematical Software Libraries. 


We've also included the same 
advanced intrinsic math func- 
tions found on VAX* and 












nprovements 
ke our new HUGE 
lemory model, and porting the 
iggest mainframe programs has 
ever been easier. 


Among the many additions we've 
ade to our package is our exclusive 
»deView™ windowing debugger It 

's you trace through programs at 
ly level you want, from source 

de to assembly language. 


sdium, Large and Huge Memory Model Libraries. NEW! 

x models with NEAR, FAR and new HUGE pointers. 

mmon blocks and arrays greater than 64K. 

oose from three math libraries and generate in-line 8087/80287 
tructions or floating point calls: 

loating point emulator (utilizes 8087/80287 if installed) 
3087/80287 coprocessor support 

uternate math package—extra speed without an 8087/80287 
ik your FORTRAN routines with Microsoft C (v. 4.0 or higher), Microsoft 
cal (v. 3.3 or higher) or Microsoft Macro Assembler. 

‘gest number of 3rd party support libraries available. 
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ou can open windows, and watch 

a ae (local and COMMON) 
and CPU registers change. You can 
set conditional breakpoints using 
variables and expressions. = 

Debugging gets even easier with 
the compiler’s advanced diagnostics. 
Detailed error messages are 
thoroughly explained and cross- 
referenced in our new manuals. 

Documentation that has been 
completely revised and expanded 
with tons of examples. 


If we're talking your language, use 
one of the numbers below for more 
details about the Microsoft® ANS] 
FORTRAN 77 Optimizing Compiler 
Version 4.0 with CodeView, 
yand the name of your 
r nearest dealer. 

“ ™ (Even ifthe call’s toll-free, 


itm good idea to refer to it as 
“FORTRAN 4” for short.) | 


Microsoft’ FORTRAN 
The High Performance Software. 


Call (800) 426-9400. In Washington State or Alaska, (206) 882-8088. In Canada, 
(416) 673-7638. 


Microsoft and MS-DOS are registered trademarks and CodeView is a trademark of 
Microsoft Corporation. IBM IS a registered trademark of International Business 


Machines Corporation. VAX isa registered trademark of Digital Equipment Corporation. 


¢ Provides more detailed diagnostic error Messages (almost twice as many 
as competitors) and extensive documentation with non-ANSI 77 fea- 
tures highlighted. NEW! 

¢ Proven reliability —tested with over 2.5 million lines of code compiled 
and executed. 

¢ MS-DOS? network support with file / record locking and sharing. 

¢ Microsoft Program Maintenance Utility rebuilds your applications 
after your source files have changed. NEW! 

# Other utilities including faster overlay linker (links over IMbyte object 
code), library manager, EXE file compression utility, EXE file header 
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utility, MS-DOS environment setting utility and setup utility. 
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HARD DISK 
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H.D. TUNEUP! 


The harder you work, the more files you put on your hard disk 
the faster DOS works to fragment those files. Fragmented files make 
you wait longer for file loads and saves. H.D. Tuneup rearranges 
the data on your hard disk for the fastest possible file i/o times. 
Your disk will speed along like new. 


“‘Much better than Disk Optimizer™”’ 
- Philadelphia, PA 


Requires IBM PC/XT/AT compatability, DOS 2.x or higher and at least 196K. Hard 
disks up to 32mb may be tuned, along with most 5.25”’ diskettes. 


ONLY $39.95 + $3.00 shipping (US/Canada) 


SofCap Inc. 
P.O. Box 131 
Cedar Knolls, NJ 07927 
Visa (201) 386-5876 MasterCard 
If you want the absolute best possible performance from your hard disk: 


TUNE IT UP WITH H.D. TUNEUP 


Disk Optimizer is TM SoftLogic Solutions. H.D. Tuneup is TM SofCap. 
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Now Available in the U.S.A. 


Features: 

x Smallest code 
from ANY compiler. 

% Macro assembler, linker, 
librarian, debugger included. 

* Can produce ROM code. 

* Full library source. 

x Excellent diagnostics. 


AND MUCH MORE - 
THIS IS A COMPLETE 
PRODUCTION-QUALITY 
COMPILER 
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The leading edge of Software Technology 












Order trom: SOFTFOCUS 
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(045) 314 9514 (07). 38 6971 








Circle no. 376 on reader service card. 






















Listing Eighteen 
(Listing continued, text begins on page 96.) 


request is appended to the front of the 
next input line. Chgfont() is called 
from the routine that processes the .ft 
request [{ ft() in nrprocs.c ] and also 
when an environment is restored (by 
et in nrmsc.c). 


+e 4 eH DH 


New _font = c; 


[ * 22 on a a rrr x / 
int getline( target, copymode, i 
int ( *inp ) 0): ee 


UCHAR *target; 


/* Get an input line & put it into target. Get 

MAXSTR characters. The input file, rive, ieraichas 
an input file or an input macro depending on the 
state of the global Ismacro. Return 1 on success 

or 0 on end of file. Lines ending with <Esc><newline> 
are continued to the next line, otherwise newline 
terminates the line. The newline character is not 

put into the string. Tabs (*I) are expanded to a 
sequence of spaces (\t is expanded into a “I by 
escape(). This “I will be processed by in the text() 
module. Trailing white space is stripped from the line. 


Copymode is just passed through to escape() (which 
expands escape sequences). 


*epenee he & & + & HH HR OD 


~s 


register UCHAR ‘*rp ; 


register int c : 

UCHAR "Dp 3 

if( Quit ) /* Quit is set by the .ex command */ 
return 0; /* pretend we've seen end of file */ 

INLINES++ ; /* Increment number of input lines */ 


p = target ; 
c = (*inp) (Ifile); 


while( (p - target) < MAXSTR ) 


{ 
{fi ome NR Le. = EOF ) 


break; 
if( c != Esc ) 


tptt = C : 

c= ( *tinp ) ( Tite °):.73 
} 
else 


= escape(target, &p. ©° ymode, inp, Ifile, 
7 aes, 7 . . MAXSTR - (p-target))é 


} 
*p = 0; 


if( Tabs enabled ) 


dotab( target ); /* Expand tabs and leaders */ 


if( New_font && 1\ISCMD (*target) ) 


; /* This is a kludge but it's the most convenient 


* way to get a font change into the input stream 
* at the correct place. We can't just change 

* fonts when the .ft 4s executed because we 

* might be filling and .ft doesn't cause a break 


ey 
memcpy ( targett2, target, 
switch (New_font) 


{ 
case PREVIOUS: 


(p-target) +1 )3 


case BOLD: 

case ITALICS: 

case OVER: target(0) = CH_ATTRIB; 
preak; 

default: target[0) = CH_FONT; 


break; 
} 
target{1] = New_font ; 
New font = 0; 
} 


return( !(c = EOF sé p™ target) ); 


/* BAC 2 eS cance imal ner Beata ET ca xf 
s( nifile, nifilename, mode, nmacv ) 
iE * saiei ie 3 /* Input file descriptor - 


/* Name of input file 
/* processing mode {see below) */ 
/* Macro arguments af 


char *nifilename ; 
int mode; 

char aenmacv ; 

This routine actually does the processing of a file 
{s a 2nd order recursive routine. That 
is process () is called recursively every time the 
input is changed (by 4 -8° command, a macro expansion, 
etc.). Macv is an argv-like array of arguments to 
macros. Ifile is a pointer to either a FILE or to a 


or a macro. It 


eee 


(continued on page 74) 


Dr. Dobb’s Journal, March 1987 





UnleashThe Most Powerful , 


Development Tools 








UNIFY DBMS/DOS.The UNIX World Leader 


OnThe Planet DION 





Brings A New DimensionTo DOS Application Development. 


What happens as the DOS world expands? Asa 
new generation of hardware takes over? As networking 
becomes more important? The potential is enormous. 
But until now, the tools to achieve it have been limited. 

Now a leader from another world unleashes that 
potential: UNIFY® DBMS. The leading relational 
DBMS in the UNIX™ world. And now, the most 
advanced set of application development tools in the 

OS world. 

With UNIFY DBMS, DOS developers have new 
power to build more sophisticated applications than ever 
before possible. 

The power to write high performance “C” 
programs that will access the data base, using 
Unify’s Direct Host Language Interface. 

The power of an industry standard 
query language—SOL. 

The power of unmatched speed in pro- 
duction applications. Only UNIFY DBMS is 
specifically engineered for transaction through- 
put. With unique performance features like 
PathFinder™ Architecture multiple access meth- 
ods, for the fastest possible data base access. 


© 1986 Unify Corporation. UNIX™ is a trademark of AT&T Bell Laboratories. 


The power of comprehensive pro- 
gram development and screen man- 
agement tools. Plus a state- 
of-the-art fourth generation . 
report-writer. ‘7° St : 
What’s more, with UNIFY XO 2s » 
DBMS, the potential of networked FC OM 
applications becomes a reality. Unlike ion | 
DBMS systems which were Originally 
single-user (and which have a long stretch ~*~ 
to accommodate more users), UNIFY DBMS 
is a proven multi-user system. 

And because UNIFY DBMS/DOS is 
the best of two worlds, it offers you the most 
powerful benefit of all: DBMS applications that 
Call grow as your needs grow. From single user 
DOS. To networked DOS. To multi-user UNIX. 
All without changing your applications. 


Call the Unify Information Hotline 
for our free booklet: The NewDOS World. 
(503) 635-7777 


UNIFY 


CORPORATION 


4000 Kruse Way Place 
Lake Oswego, OR 97034 


BEF 





Circle no. 332 on reader service card. 








Modula-2 


IBM PC/DOS 
Native Code Compiler 


This is a full implementation of Niklaus Wirth’s Modula-2 
language. Our product is not an interpreter, but a true 8086 
compiler, using state-of-the art techniques. A Unix-like 
"make" utility is included which provides automatic recom- 
pilation of modified source programs. 


The code generator produces object module input for the 
DOS link utility. You may combine your Modula-2 pro- 
grams with code from other languages such as Assembler. 
The software also operates on PC compatibles using 
MS/DOS. All the run time source code is included. None 
of the software is copy protected, and is fully supported and 
maintained by farbware. No royalties are charged for the 
use of the run time object. A complete and comprehensive 
reference manual is included in the purchase price. The 
manual is available separately for $25.00. 


Site licenses and quantity discounts are available. 


$89.95 Complete 


farbware 
1329 Gregory 
Wilmette, IL 60091 
(312) 251-5310 


Master Card and Visa Accepted 


Circle no. 340 on reader service card. 













A DP MANAGER’S 
BEST FRIEND 


PURE GENIUS IS NOT ENOUGH 


(YOU STILL NEED THE RIGHT TOOLS) 


@ CAPTURE SCREENS 
@ CREATE DEMOS 
@ RUN TIME MODULE 


@ DESIGN MENUS 
@ CREATE PROTOTYPES 
@ CREATE TUTORIALS 


ENHANCE HIGH LEVEL LANGUAGES WITH FULL 
ACCESS TO ALL CAPABILITIES IN YOUR OWN CODE 





"source code was reduced by one third...” 

"15 minutes to design a sophisticated screen...” 
Scott McCaffrey, Musco of PA 

"In a word, fantastic...” 

 _..| just returned my copy of Dan Bricklin’s 

Demo Program.” Thomas Emr, Dir. of Marketing - ADP Inc. 


GENES! G 


S 
go" SYSTEMS 


Circle no. 373 on reader service card. 


5403 Jonestown Rd., Harrisburg, PA 17112 
(717) 652-1200 





74 






Listing Eighteen 
(Listing continued, text begins on page 96. ) 


* macro descriptor returned by mopen() (in nrmac.c) 

* according to the state of mode. The following modes 
* are recognized 

x 

* 0 Input is from a file or stream and Ifile is 

* a FILE pointer. 

* 1 Input is from a macro and Ifile is a macro 
pointer returned from mopen(). 

® 2 Input is from a string and Ifile is a pointer 
. to that string. Note that mode two commands 

* are processed with the current file (ie. 

* ifile, nifilename and nmacv are ignored). 

* 

* Process returns immediatly if command() returns true. 
x 

* This routine is extremely recursive. Be careful with 
* static variables (ie. don't use them). 

ef 


UCHAR line [MAXSTR] 
UCHAR *oiname, **omacv 


. 
° 


int oinlines, oismacro ; 
FILE eoifile ; 

int oinhibit ; 

int mgetc(), fgetc(); 


#ifdef DEBUG 
printf("Mode %*d process call: ", mode ); 
printf("file <Ox%x> named <&s>, macv @ 0x%x\n", 


nifile, nifilename, nmacv ); 


printf ("%s processing started (from %s, line %d)\n", 
nifilename, Ifilename, INLINES ); 


#endif 
oinhibit = Inhibit 
oinlines = INLINES /* Save program state on “e 
oifile = Ifile ; /* the stack / 
oiname = Ifilename 
oismacro = Ismacro 
omacv = Macv : 
INLINES = 0 ; /* Create new program state a/ 
Ifile = nifile 
Ifilename = nifilename 
Ismacro = mode 
Macv = nmacv 


if( mode == 2 ) 
; * is a string ptr */ 
Ifile = (FILE *) énifile: /* Ifile is 


getline( line, 0, sgetc ); 


if ( printf Mi amicus, Ifilename, line ); 


Inhibit = oinhibit ; 
INLINES = oinlines ; 
Ifilename = oiname 
Ifile = oifile 
Ismacro = oismacro ; 
Macv = omacv 


4£( ISCMD ( *tline ) ) 
command( line ); 


se 
text( line ); 


} 
else 


while( getline(line, 0, Ismacro 2? mgetc : fgetc) ) 
{ 
- vraneet bias: ¢ta>\n", Ifilename, line ); 


if( *line == FF ) 
command({( “.bp" ); 


else if( ! ISCMD(*line) ) 
text ( line ); 


else if( command(line) ) 
break; 


4f( Abort _process ) pages 

Abort process - 

4£( command(".}") 
break; 


0; 
) 


} 
} 


Inhibit = oinhibit ; 
INLINES = oinlines ; 
Ifilename = oiname 
Ifile = oifile 
Ismacro = oismacro ; 
Macv = omacv 


} 


#ifdef DEBUG ing to %s, line %d)\n", 
‘Ss: cessing done (returning tO %8, s 
printf ("%s: pro ot etlatane, Ifilename, INLINES ): 


tendif 


return 0; 


} End Listings 
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InformixSQL for pas by Informix 
Instant Replay sy Nostradamus ......, 0... 
Interactive EASYFLOW by Haventree 
MKS Toolkit with vi RDG a: 6 Rare 4 
Norton Commander by Peter Norton 
On-line Help from Opt-Tech Data Proc 
OPT-Tech Sort by Opt-Tech Data Proc 
PrintO ty Software OCHS os ines. . 
Quilt Computing Combo Package 
QMake Program Rebuild | 
SRMS Software Revision Mgmt Sys........ 
SoftScreen/HELP by Dialectic Systems 
Source Print ty A/debaran labs 
Taskview fy Sunny Hill Software 
TLIB dy Burton § ystems Software. .......0,. 
Tree Diagrammer by Aldebaran Labs 
VTEK Term Emulator by Sci Endeavors. ....... 


Phoenix Products 
Pasm86 Macro Assembler Version 2.0 
Pdisk Hard Disk & Backup Utility 
Pfantasy Pac Phoeniy Combo 
Pfinish Performance AGG 5 Od pS 
Pfix-86 Plus Symbolic Debugger 
PforCe Comprehensive C Library 

Plink-86 Plus Overlay Linker 
Pmaker Make ‘nee ore eee 
Pmate Macro Text Editor 
Pre-C Lint Utility 


2 2 © '6:'O' é G's 


Cre 2. 6 G5 
OD ECC 44S GS 


PSS WS 6,428 ¢ 
SB Se 6) Cee e “¢ 
oe ee Sew Ss ee 
eee 
SP Re gee 0 we Ielheue at dic 


Ptel Binary File Transfer Program 
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polytron products 


PolyBoost 7he Software Accelerator......... 80 - 
Polytron C Beautifier................ 49 7 
Polytrom C Library 130.6 3d oe hc wee 99 

Polytron PowerCom Communications ....... 179. 139 
PolyLibrarian Library Manager............ 99 

PolyLibrarian Wl Library Manager .......... 149 7" 

PolyMake UWX-like Make Facility .......... 99 | 

OTUs niin bh Gidea ah’s Siete bles New 149 1 . 

PolyWindows Products A// Varieties ....... CALL CA 

PolyXREF Complete Cross Ref Utility ........ 219 = 

PolyXREF One language only ............ 129 a 

PVCS Version Control System... 2.0.2.0 05. 395 3 

softcraft products 

Btrieve /SAM Mgr with No Royalties ......... 245 194 
Xtrieve Query Utility 6.0... cc ee ee eee 245 1 -* 
OPC ISION 6 iste sewn abees's 145 11 

Btrieve/N for Networks... 2.0... cee eee 595 464 
RUMOUR. oi cinbieecascéhdvcass 595 464 
Report Option/N................. 345 274 

text editors 

Brief from Solution Systems.........6004- 195 CALL 

Epsilon Emacs-like editor by lugaw ......... 195 154 

KEDIT by Mansfield Software............. 125 99 

Micro/SPF by Phaser Systems ........ New 175 139 

PC/VI by Custom Software Systems ......... 149 119 

SPF/PC by Command Technology Corp... ... . 195 139 

Vedit by CompuView..... 0.0... eee aee 150 107 

Vedit Plus by CompuView .............. 185 139 

turbo pascal utilities 

ALICE /nterpreter by Software Channels ...... . 95 66 

Flash-up Windows dy Software Bottling. ..... 90 79 

HELP/Control ty moS................ 125 99 

screenplay a// varieties by Flexus .......... 100 +79 

Screen Sculptor sy Software Bottling ....... 125 91 

Speed Screen by Software Bottling. ..... New 125 91 

System Builder ty Royal American ........ . 100 CALL 
IMPEX Query Utility ............. New 75 CALL 
Report Builder................... 75 CALL 

TDebugPLUS fy TuboPower Software... 60 849 

Turbo EXTENDER by TurboPower Software... . 85 ~=—s« 64 

Turbo Professional by Sunny Hill. wo. ee eee 70 48 

TurboHALO from MS/ ..............., 129-98 

TurboPower Utilities by TurboPower ....... 95 78 

TurboRef ty Gracon Services............, 50 = 45 

TURBOsmith Desugger by Visual Age........ 58 45 

TurboWINDOW by MetaGraphics.......... 80 = 58 

wendin products 

Operating System Toolbox..........._. 99 79 

PCNX Operating ii he re 99 79 

PCVMS Similar to VAX/vms.... 11221 99 79 

XTC Text editor with Pascal TOICR ie is Piva se tect 99 79 

xeEnix system vy 

See also Microport § ystem V/AT section. 

XENIX System V Complete ty Sco... 1295 999 
XENIX Development System......_ || 595 499 
XENIX Operating Sys Specify XT/AT ... 595 499 
XENIX Text Processing Package....... 195 144 

xEnix products 

Btrieve /SAM File Mogr by Softtraft......... 

C-ISAM by Informix... 2... 3 19 288 

C-terp by Gimpel, Specity compiler... | °° * 498 379 

etree ISAM Mgr by Faircom ....... 1. 395 329 

dbVISTA A// Varieties by Raima... 2.00. CALL CALL 

OBx with Library Source by DesktopAl .. 2... 550 499 

DOSIX User Version by Data Basics... 199 CALL 

DOSIX Console Version by Data Basics 2... 399 CALL 

Informix by Informx...... 2... 995 795 

Informix4GL ty Informix...) 11211 1500 1239 

InformixSQL by inform... 995 795 

Lyrix ty Informix .......0 0002 595 449 

Micro Focus Level II Compact COBOL. ... . 1000 795 
PW ns Seay ciincs sacs te 400 319 
Level ANIMATOR... 2.11020 °° 7? 600 479 

Microsoft See Microsoft ON se win 6m a aoe CALL CALL 
Networks for XENIX go | ae 595 495 
PANEL Screen Designer by Roundhill ..... 625 535 
REAL-TOOLS Binary Version by PCT ..... 149 8g 

Library Source Version...............” 399 289 

complete Source Version ............. 499 369 
RM/COBOL sy Ayan McFarland... 2... 1250 949 
RM/FORTRAN by Ryan-McFarland... 2... || 750 549 
SCO Professional dots clone by SCO... 795 595 





LOWEST PRICES | 
Since this ad is prepared in advance of publica- 
tion, some of our current prices may be lower 
than what's advertised here. Call for latest 


pricing. 


FREE SHIPPING 

Orders within the USA (including Alaska & Ha- 
wali) are shipped FREE via UPS. Express ship- 
ping is available at the shipping carrier's stand- 
ard rate with no rush fees or handling charges. 
To avoid delays when ordering by mail, please 
call first to determine the exact cost of express 


shipping. 
CREDIT CARDS 


VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and telephone number. 


CODs AND POs 

CODs and Purchase Orders are accepted at no 
extra cost. POs with net 30-day terms are avail- 
able to qualified US accounts only. 


FOREIGN ORDERS © 
Shipping charges for foreign and Canadian 
orders are based on the shipping carrier's stand- 
ard rate. Since rates vary between Carriers, 
please call or write for the exact cost. Foreign 
orders (except Canada), please include an addi- 
tional $10 for customs form preparation. All 
Payments must be made with US funds drawn on 
a US bank. Please include your telephone 
number when ordering by mail. Due to govern- 
ment regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 


Call for special pricing. 


SOUND ADVICE 

Our knowledgeable technical Staff can assist in 
comparing products, answer technical questions 
and send you detailed product information tai- 
lored to your needs. 


30-DAY GUARANTEE 

Most of our products come with a 30-day docu- 
mentation evaluation period or 30-day return 
guarantee. Please note that some manufactur- 
ers restrict us from offering guarantees on their 
products. Call for more information. 


CALL TOLL-FREE 

US 800-336-1166 
CANADA 800-225-1166 
OHIO & ALASKA 

(Call Collect) 216-877-3781 
FOREIGN 216-877-3781 
CUSTOMER SERVICE 216-877-1110 


Hours: Weekdays 8:30 AM to 8:00 PM EST. 
Ohio customers please add 6% state sales tax 
Prices are subject to change without notice. 


Call or write for our FREE comprehensive 
Price guide. 











Blaise Computing provides a broadr 

gramming tools for Pascal and C Sines 
with libraries designed for serious software 
development. You get carefully crafted code 
that can be easily modified to grow with your 
Se ith con es packages are shipped com- 

comprehensi 
grams and sure de po ereenk eye 


C TOOLS PLUS 
$175.00 


NEW! Full spectrum of general-purpose utility 
functions; windows that can be stacked, re- 
moved, and accept user input; interrupt serv- 
ice routines for resident applications; screen 
handling including EGA 43-line text mode sup- 


port and direct screen access; string functi 
. ; t 
and DOS file handling. © ay ee 


CAL TOOLS/TOOLS 2 
$175.00 


Expanded string and screen handling; graphics 
routines; easy creation of program interfaces; 
memory management, general program con- 
trol; and DOS file support. 
VIEW MANAGER 
$275.00 

Complete screen management, paint data entry 
screens; screens can be managed by your appli- 


cation program; block mode data entry or field- 
by-field control. Specify C or IBM/MS-Pascal. 


ASYNCH MANAGER 
$175.00 7 


Full featured asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K; XON/ 
XOFF protocol; baud rates up to 9600; modem 
control and XMODEM file transfer. Specify C or 
IBM/MS-Pascal. 


‘arbo POWER TOOLS PLUS 
$99.95 


NEW! Expanded string support; extended 
screen and window management including EGA 
support; pop-up menus, memory management, 
execute any program from within Turbo Pascal; 
interrupt service routine support allowing you 
to write memory resident programs, schedul- 
able intervention code. 















Complete asynchronous communications 
library providing interrupt driven support for 
the COM ports; I/O buffers up to 64K, XON/ 
XOFF protocol; and baud rates up to 9600. 


RUNOFF 
$49.95 


NEW! Text formatter written especially for pro- 
grammers; flexible printer control; user-defined 
variables; index generation; and general macro 
facility. Crafted in Turbo Pascal. 


EXEC 
$95.00 


-ogram chaining executive. Chain one pro- 
am from another even if the programs are in 
fferent languages. Shared data areas can be 


ecified. 
Yi) da ae 800-227-8087! 
hm 


igs ea a ay 
LAISE COMPUTING INC. 


0 Ninth Street. Suite 316 Berkeley, CA 94710 (415) 40-5441 
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Listing One (Listing continued, text begins on page 110. ) 


main(argc, argv) 
int argc; 
char **argv: 


{ 
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® 
paste -- a program to attach to th 
* in e lines of a file the corres ee 
Z soa ee of another file, with an optional string fee ® 
x 
* 
* Written January, 1984 by J * 
’ ohn M. G 
* Updated for UNIX April, 1986 a . 
x 
* usage: * 
. ® 
x 
, paste [-paste] [-b <string>] [-<n>] {filel] [file2) 
* options: * 
® = 
noe <filel> * 
: p taaeee does not exist (<string> is prepended to each * 
. 5 
x - 
es oe. does not exist (<string> is appended to each 5 
* . ® 
* = ba 
: s Do not print <string> with lines from only one file. * 
; -t = erate resolve the ambiguous command : 
aste e>". The -t flag forces < > 
: standard input. I1.e., . o cid ler te sie : 
= “paste <file>" ss 
: is equivalent to “paste <file> <stdin>" * 
x 
ci "paste -t <file>" é 
. is equivalent to “paste <stdin> <file>". * 
x 
* <-e Do not print <string> if both input lines are empty x 
‘ (i.e., that consist of no characters but ‘\n'.) * 
*« 
* -b <string> A string of characters to be inserted between the lines * 
® of <filel> and <file2>. The string may contain all ® 
- the standard escape codes with the exception of *\O'. . 
. The string may also indicate blanks with the escape - 
: sequence '\s'. . 
i x 
* -<n> Print <n> lines of <filel> before appending lines of “ 
* <file2>. If <n> is negative (e.g-, “paste --3") then # 
x <n> lines of <file2> will be printed first. 
Reena nw nee ee ee ocean et abet eee eee ne * 
#include <stdio.h> 
#include <ctype.h> 
/* On systems such as UNIX, if a string with blanks in it is 
* surrounded by quote marks, it is considered to be one string. 
* On other systems, the blank ends the string and the quote 
* marks are passed along with the other characters. so, while 
* on UNIX, the command 
® 
* ‘paste -b "; do ™ list1 list2' 
* 
* would set 
* argv(2] to"; do *, 
* argv(3) to listl, 
* argv(3) tolist2. 
x 
* a system like MSDOS would set 
® argv(2) Ea *\h se", 
« argv(3) to"do", 
2 argv(4) to "\t", 
* argv(5] tolistl, 
* argv(6) tolist2. 
x 
* This is easily taken care of, but it does mean that eS 
* compilation js required by setting the switch below to e& ther 
* zero or one, depending on your particular operating system. 
s/ 
#define BLANK_ENDS_STR 0 
#define STRINGLEN 128 
#define TRUE 1 
#define FALSE 0 
define isoctal (x) ((x) >= 'O' &6 (x) < '8') 
typedef unsigned int Boolean; 
char pst ring (STRINGLEN } = {'\0'); 
char *nullstr = “"; 
char *strf = "ts"; 
char *program_name = "paste"; 
char *error msg{] ™ 
/*0*/ ; "“ysage: %s {[-aptse] [-D \“string\") {-<n>] [filet] {file2) s\n", 
/eie/ "gs: unknown flag s\n", 
/*2*/ “gs: at least one file must exist%s\n", : 
(*3*/ "gs: -t flag is only valid with one file on the command linets\n". 
/*4*/ "gs: both files can't be standard input%s\n", 
/*5*/ “es: contradictory options$s\n", 
/*6*/ “$s: can't open %s\n", 
fuTty “gs: -a or -p flags are invalid with two filests\n", 
/*8*/ “$5: too many filests\n", 
/*9*/ "gs: string argument lacks closing \' oF \"ss\n", 
/*10*/ “es: null character in string argument%s\n", 
/*1i*/ “gs: string argument too longts\n" 


ANNOUNCING ... . High performance 
APL Interpreter using MC68000 32 bit 
coprocessors and NS32081 floating point 





i ated with DOS and 

*tpl, *fp2, *fopen(); processors totally integr 

Soin irra - FALSE, amen = FALSE, trailing = FALSE; Novell Netware hardware and software 

Be gee ee. SUR environment. MultiAPL coprocessors wis 
lip = 0; rk- 

eae Sectarg: 1MB or 4MB RAM for large APL wo 


spaces and the fastest processing facilities 


available under DOS or Netware. 
if (argc — 1) 


exit_error(0, nullstr); 


/* Get the flags. 

a/ 

while (--arge > 0 6& **++targy == '-') 
{ 


MunAPL 


switch (*(*argv + 1)) 
{ 





case '\0Q';: /* Because default: won't catch this.*/ 
exit _error(l, *argv); 
break; 


aes EXPLORE 


if (arge == 1) 


exit_error(0, nullstr); e | 640K | + [ime or ame | 





arge--; ¢ Full component multi-user file system 
“ns e Btrieve file interface 
#if BLANK ENDS STR eS ; ; 
" stYrget (sarge, éargv, bstring); e No restrictions on Object size 
felse e Shared variable interface 
strload(*argv, bstring); 
#endif e Uses standard DOS files 
break; e Overlays (functions/variables) 
care an ° 10 & 12 MHZ coprocessors available 
case : 
case '1'; e Extended superset of IBM's VSAPL 
“20% : ere 
one ‘3s e APL*PLUS conversion utilities 
‘ t. weak o 
ase Se, e Full screen facilities included 
reese pe e Enhanced version of APL.68000 
Case '8!'; e Run time versions available 
case i. is i 
slip = ato argv + : 
break; 
| COMPARE 
default: aes 
Ssubarg = *argv; 2 
while (*++subarg) BYTE Magazine 
{ ; 
switch (*subarg) Calculations Benchmark 
case 'a!:; | Double Precision Numbers 
ieee (All systems with one user) 
case ‘e'; Fortran 
printempty = FALSE; VAX-11/780 
break; 
ines tps PRIEReL V6.0 
prepend = TRUE; 
break; | STSC V5.2 
Siew: + Ps } APL *PLUSPC 
printsingle = FALSE; | 1BM AT/80287 
b k; 
re MultiAPL V6.0 
case 't'; 1BM PC 
trailing = TRUE; 
break; STSC V5.2 
APL *PLUS PC 
default: f % 
exit _error(1, *argv); ar noe m 13.30 
break; ! ' ' u 
a 0 Seconds 15 
INTRODUCTORY OFFER 
} a 
if (prepend ¢¢ append) /* Contradictory options. */ $995 
exit_error(2, nullstr); GOOD THRU 4/30/87 
switch (argc) /* The number of file names on the command line. */ INCLUDES: APL INTE RPRETER 
ante AND REFERENCE MANUAL. 10 MHZ 
if (trailing) COPROCESSOR WITH 1MB RAM 
exit_error(3, nullstr); (No Wait State) 
if (!(prepend || append) ) /* Both files can't be stdin.*/ Optional Math Processor $295 
exit_error(4, nullstr); Order direct for $995 + Shipping/handling 
if (append) ($18 US, $20 Canada) VISA/MC/AMEX add 4%. 
Certified check, MO COD. OFFER Goop IN, 
attachf(stdin, NULL, slip, print ingle, printempty) ; ’ 
Slip, p sing Pp cy U.S. AND CANADA ONLY. 
else 
attachf(NULL, stdin, slip, printsingle, printempty) ; 30 DAY MONEY BACK GUARANTEE 
break; 
case 1: 





SPENCER 


ORGANIZATION, INC. 
if (trailing ¢¢ (prepend || append) ) 


exit_error(5, nullstr); P.O. BOX 248 WESTWOOD, N.J. 07675 


if ((fpl = fopen(*argv, "r")) a= NULL) (201) 666-6011 
exit_error(6, ®argv); 


/* Contradictory options? 
=/ 


Btrieve is a trademark of Softcraft, Inc. 
APL *PLUS is a trademark and service 
mark of STSC, Inc. 


(continued on page 82) 
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800-543-6277 


Ask for Operator 2053 
California: 800-368-7600 


POWER TOOLS for 
SYSTEM BUILDERS™ 


TSF is owned and operated 
by programmers, so we 
understand your needs. We 
believe and practice integrity 
in all business dealings. We 
advertise real prices and offer 
our best price to all customers. 
We provide prompt delivery of 
current product versions. 


We accept checks, Visa, 
MasterCard, American Express 








expands Basic's horizons with window 
management, input editing, array 
sorting and print formatting. It also 
provides MSDOS/BIOS function calls 
and allows you to break the 64K data 
barrier. Written in assembler for high 
performance. For Bascom, Quick 
Basic , BASICA and GWBASIC. (List 
$75) 


evaluates 
and COD. We charge your ; your source code to locate insidious C 
card only when we ship and do The Software Family bugs like "=" instead of "==" and 


not add asurcharge. We 
provide free UPS delivery on 
orders over $100 ($3 delivery 
charge for small orders). Our 
COD fee is $4. We allow return 
privileges on most products. 
Give us a try! 


649 Mission Street 
San Francisco, CA 94105 


mismatched function parameters. 
Evaluates multiple source files to 
validate use of all public functions and 
variables. Compatible with all popular 
compilers. 30 day trial period (15% re- 
stock fee). (List $139) 


speeds debugging with multiple 
windows, symbolic memory address- 
ing, and sophisticated trace and 
breakpoints. Includes an NMI break 
switch so you can interrupt programs 
at any time without pre-setting break 


Microsoft Quick Basic (List $99) $65 Microsoft Pascal (List $300) $180 ar nl 
MicroHelp Inside Track ($65) $55 Blaise View Manger (List $275) $197 ee ee cath harg-l0 
MicroHelp Mach 2 (List $75) $60 Blaise Async Manager ($175) $125 
MicroHelp Stay-Res (List $95) $75 Blaise Pascal Tools+ (List $175) $125 
Sterling Castle Tools (List $99) $80 

Turbo Pascal BCD & 8087 ($100) a5 

Software Channels Alice ($95) 70 
Datalight C (List $99) $75  Kydor Symbolic Debugger ($49) $40 Sete ie 
Microsoft C w/Codeview ($450) $270 Blaise Turbo Async ($100) $80 a Pai ida aks roerraty 
Guidelines C++ (List $195) $175 Blaise Power Tools ($1 00) $80 display and naire ag acalot 
Lattice C (List $500) $270 Borland Turbo Editor (List $70) $48 Rune from within Turbo's environment, 
ae Williams C (List $500) — so you don't loose any Turbo features. 
jaa eid $300) co Written in assembler for spore? ; 
Run/C Professional (List $250) $160 Custom Software PC/VI ($149) $119 er e8) and low memory overnead. 
Run/C Interpreter (List $120) $85 MKS Toolkit ($List $139) $115 
Gimpel PC Lint (List $139) $103 Periscope | (List $295) $235 
Softcraft Btrieve (List $245) $190 Periscope II (List $145) $108 
Lattice dBase III Intfc ($250) $175 Phoenix Plink+ (List $495) $315 
Blaise View Manager (List $275) $197 Phoenix Pfinish (List $395) $230 provides back- 
Vermont Window for Data ($295) $259 Phoenix Pfix86+ (List $395) $225 ground file transfers an d e-mail for your 
Lattice Curses (List $125) $90 Polytron Make (List $99) $80 =. Incoming and outgoing calls are 
Essentials C Essentials ($100) $80 Quilt SRMS + Qmake (List $199) $165 processe d automatically while you con- 
Essentails Graphics (List $250) $200 Seidl SVM + SMK (List $379) $330 tinue with your normal work. Outgoing 
Blaise C Tools+ (List $175) $125 Dan Bricklin's Demo (List $75) $68 calls can be scheduled to take advan- 
Essentials Utility (List $185) $130 Opt-Tech Sort (List $1 49) $126 tage of late night phone rates an Ato 
Greenleaf Functions (List $185) $130 Borland Turbo Prolog (List $99) $65 concentrate messages in a multi-node 
Greenleaf Comm (List $185) $130 Microsoft MASM (List $150) $98 RamNet network. (List $149) 
Blaise Async Manager ($175) $125 Microsoft Fortran (List $350) $200 
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Do You Feel Lucky??? 





(DOS 3.0) 


PRODUCT SUPPORT: Quarterly newsletters, 24 hour Bulletin Board, and a Staff with over 20 man years of actual Ada programming 
experience. 


AFFORDABILITY: Our Janus/Ada “C” Pak is available for $99.95 and contains the Janus/Ada Compiler and Linker designed 
specifically for microcomputers and consumer tested since 1981. Our Customers can upgrade to our developmen 
and embedded systems “Paks” with 100% credit for this starter package. Our Janus/Ada Extended Tutorial is 
available for the same low Price. We feature commercial and educational “site” licensing for all of our packages. 


ADA STANDARDIZATION : Janus/Ada source code can be ported to any validated Ada system and compiled. We offer a variety of, 
tools and consultations to assist you in this Process, if needed. : 


tit about time you changed your luck? We'll 
ace an order or receive our informative brochure, Please call 1-800-722-3248 It'll make your day!!! 


CP/M, CP/M-86, CCP /M.86 are trademarks of Digital Research. Inc 
“ADA is a trademark of the U.S. Department of Defense 
MS-DOS is a trademark of Microsoft 


© Copyright 1986 RR Software 
Specialists in state of the art programming 





ee ene P.O. Box 1512 Madison, Wisconsin 53701 
Pe see (608) 244-6436 TELEX 4998168 1-800-722-3248 
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Programmers & 
Developers 


New 
Products! 


Distribute Your Demos with 
No Royalties 


Screen Machine creates interactive demos, 
tutorials, menu systems and DOS shells. In- 
cludes a text screen editor that optionally 
generates source code* and binary or text 
files. Never write code for screen display 
again. Capture any program's text screens for 
editing and your own use. Capture CGA com- 
patible graphics screens for BLOAD or direct 
display. SAVE hundreds of HOURS of work. 





Now there's no need for separate screen and 
demo software packages and no need to pay 
outrageous royalties. Priced at only $79.00. 


*Turbo Pascal, Mach 2 for Turbo, Assembler, dBASE I! & Ill, 
BASIC (including The Inside Track and Mach 2). 


Supercharge Turbo Pascal 


Mach 2 for Turbo Pascal adds assembler 
speed to your programs. 90 + subroutines, 
most in assembler, give you speed and func- 
tionality you never knew was possible. No 


knowledge of assembler language required. 


INSTANT displays. INSTANT windows (incl. 

exploding and boxed). FASTEST sort you've 

seen. Read/write files FAST as DOS. IN- 

a menus, 1-2-3 horizontal and vertical 
ar. 


Trap*C/“Break & DOS critical errors So no 
more A)bort, R)etry or I)gnore. Emulate 
BASIC PRINT USING for FAST formatted 
numbers. Execute any prog, batch or DOS 
command without ending program. 


Read environment. Read file directory. 
Get/set file attributes. Plus too many string 
functions to describe here. No royalties when 
u distribute COM programs. All source 
code included. A true bargain at $69.00. 


ee er 


NOT COPY PROTECTED. 30 Day Money-Back 
Performance Guarantee. Requires |IBM/com- 
patible & DOS 2+. 


Order Now 800-922-3383 


We welcome VISA/MC. COD US only $3. 
S/H US $3, Canada $5, Elsewhere $18. GA 
res. add tax and call 404-973-9272. Demo 
available. Send $5 check. Refunded on direct 


purchase. 


We also publish Stay-Res, Mach 2 for BASIC, 
The Inside Track and Peeks 'n Pokes. 


MicroHelp, Inc. 
9220 Carlyle os 


Marietta GA 300 
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e e 
Listing One (Listing continued, text begins on page 110.) 
if (append) : 
attachf(fpl, NULL, slip, printsingle, printempty) ; 


} 


/ 


a 
* 


eee oe ee 


cas 


else if (prepend) 


attachf(NULL, fpl, slip, printsingle, printempty); 


else if (trailing) 


attachf(stdin, fpl, slip, printsingle, printempty); 


se 
attachf(fpl, stdin, slip, printsingle, printempty);: 


fclose(fpl); 
break; 


e 2: 
if (trailing) 
exit_error(3, nullstr); 


if (prepend || append) 
exit_error(7, nullstr); 


if ((fpl = fopen(*argv, “r")) == NULL) 
exit_error(6, *argv); 


if ((fp2 = fopen(*++argv, “r")) == NULL) 
exit_error(6, *argv); 


attachf(fpl, fp2, slip, printsingle, printempty); 


fclose(fpl): 
fclose(fp2); 
break; 


default: 


} 


strget -- retrieve the <string> argument from t 


exit_error(8, nullstr); 
break; 


exit (0); 


If the string contains blanks, 
string, and places a \O at its end. 


just a blank, we put one in, update the pos 
Escape sequences are treate 
One extra escape sequence 
(‘\s') exists to handle multiple blanks on 4 line, for even if 
the string is enclosed in quotes the extra blanks will not be 


decrement argc. 
in c (except \0, wnich is an error). 


passed from the command line. 


strget(pargc, pargv. pstr) 
int 


char 
char 


{ 


regi 
char 


*pargc; 
***pargv; 
*pstr; 


ster int 43 
*subarg; 


Boolean st_quote ™ FALSE; 
Boolean st_apost = FALSE; 


subarg = **pargv: 


he command line. 

Cc assumes this is the end of the 
Since WE know that it's 
{tion of argv, and 
d just as defined 


/* End of main. */ 


ee wb + e 2S Be 


/* If the string is begun with a quote OF an apostrophe, remember 
* so that we know when to end the string. 


* 
if ({st_quote = (*subarg ™ 


subargt+: 


for 
{ 


(j= 0; 3< STRINGLEN; bstr++, subargtt, j++) 


uty) [| (st_apost = (*subarg = HP "y)) 


Oe See encountered could mean the end of a string - 


* check against st_quote or st_apost. 


*/ 
if ((st_quote 6&6 *subarg = '"') I! 


(st_apost && *subarg ~~ SN te 
break; 


else if (*subarg ™ *"\0') 


{ 


/* Blank encountered in string.*/ 


/* If we began with a quote, we are not finished. 
x 


if (st_quote || st_apost) 


/* If nothing 4s left on the command line, 


* a quote mark is missing. 


/ 
4f (--(*parge) ™ 0) 
exit_error(9, nullstr); 


/* Put the blank in, and point subarg 


* to the next argv string. 
s/ 
*pstr = ' '3 
subarg = *(++(*pargv)) — 1; 
} 


/* Otherwise we didn't start with a quote mark — end. 
of 


else 
break: 
} 


else if (*subarg — NF 
switch (*++subarg) 


/* Escape sequences. */ 


(continued on page 84) 
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Why are scientists, engi- 

neers, and professionals 

_ Switching to Smalltalk/V? 
Because it lets them do 
amazing things on their 
PCs, with a Mac-like 
interface and an 
easy-to-use object- 
oriented language. 
And with Smalltalk/V 
you get an unsurpassed 
array of problem-solving 
tools. You can even per- 
sonalize the entire system to 
suit your needs. 


Smalltalk/V is the program- 
mable environment that 
gives you total control of 
your computer and makes it 





what it was meant to be, a truly personal 


tool for your mind. 


“This is the real thing, folks. A super 
Smalltalk like this turns your PC into a hot 

_ Workstation. It’s fantastic . . . Highly 
recommended.” 


John C. Dvorak, 
Contributing Editor, PC Magazine 


__ “My background is in physical chemistry, 
_ Not in programming. I like Smalltalk/V 
__ because I can use objects in the computer to 
_ fepresent objects in the physical world.” 
|. Dr. Paul Soper, Senior Specialist 
E. I. du Pont de Nemours & Co. 


“Smalitalk/V is a productive programming 
environment that allows us to quickly 
develop sophisticated medical 
applications.” 
Dr. Mike McCoy, 
Dean for Instructional Computing 
UCLA School of Medicine 


Switchin 








Gc. ; Many People 


The Programmable Environment 





“Smalltalk/V, with its visual interface and 
class structure, is a perfect way to simulate 
the complex interactions of natural 
systems.” 
Lee A. Graham, Research Assistant 
Institute of Ecology, University of Georgia 


“I solve problems quickly using Smalitalk/V 
because its classes and objects help me 
organize my thinking. And besides, it’s fun 
to use.” 
Dr. Barry Fishman, Sr. Project Engineer 
Hughes Aircraft Company 


LL eeeeneeesicetnetneeentreirhnrcees 
BYTE and BIX are trademarks of McGraw-Hill, Inc. IBM, IBM-PC, and 
IBM PC-AT are trademarks of International Business Machines 
Corporation. Unix is a trademark of Bell Laboratories. 


‘= 
Smalltalk/V 


“Smalitalk/V is the 
highest performance 
object-oriented pro- 

gramming system 
available for PCs.” 

Dr. Piero Scaruffi, 

Chief Scientist, Olivetti 
Artificial Intelligence Center 


Se 
: (ie — 
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LE : \ 
f- : 5 
f 
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“Smalltalk/V is an excellent buy 

and makes a good alternative 
— to other programming 
_’) languages for the development 
~~ ~~ of complex applications.” 


Bill Wong, Director, PC Labs 
PC Magazine 


Other Smalltalk/V 


Features 
© Object-oriented Prolog integrated 
with the Smalltalk environment 
© Supports exploratory programming and 
prototyping 
Class hierarchy with inheritance creates highly 
re-useable source code 
© Smalltalk source code included, with browser 
windows for easy access and modification 
© Object-swapping creates a virtual memory on 
hard or RAM disk 
© Bit-mapped graphics with bit and form editors 
© A sophisticated source-level debugger 
© Automatic change log for easy recovery 
from errors 
© Powerful directory/file browser system for 
organizing DOS files 
© Access to other languages and DOS 
functions 
© 500 page manual with comprehensive tutorial 
and reference sections 
© Optional add-on modules 
* RS-232 communications interface with 
UNIX™ and TTY windows 
* EGA color graphics 
* “Goodies” diskette, including 
multiprocessing, music, zoom, object 
loader, and more 











SAPIENS V8 


A VIRTUAL MEMORY MANAGER 
FOR THE PC 


C PROGRAMMERS! 
LINK IN 


EXPAND YOUR C COMPILER 
8 MEGABYTES 
ON A PC 


% VIRTUAL MEMORY MANAGER FOR 
C PROGRAMMERS ON THE IBM PC. 

% PROVIDES 8 MGS. VIRTUAL MEMORY 
WORKSPACE. 

* Link V8 libraries to C compilers — 
MICROSOFT, LATTICE AND AZTEC. 

* FAST: LESS THAN 10% SPEED 
OVERHEAD 

* ADVANCED SOFTWARE EMULATION OF 
64-BIT ARCHITECTURE 





Sapiens V8 is for C programmers who want to 
develop PC applications that go beyond current 
memory restrictions of the PC and a 16 bit 
architecture. 


© V8 is not dependent on add-on boards. 

© Virtual stack library supports stack frame 
management and multiple return values. 
Virtual heap (vmalloc( )) allows allocation 
of very large data structures. 

System requirements: Huge model C 
compiler, V8 uses 22-128 Kb core. 










S 


SA PLE NS 


AEA BE ONT EIT 


SOFTWARE 


RAR EET OE 


CORPORATION 







Sapiens Software Corporation 
236 Mora St. Santa Cruz, CA 95060 
408/458-1990 


ee 
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Listing One (Listing continued, text begins on page 110. ) 


{ 


} 


else 


/* Nothing after the ‘\' - let the ‘blank' 
* section handle it. 
s/ 


case ‘\0': 
bstr--; 
subarg--; 


break; 


case *™'; 
*pstr = ee he 
break; 


case '0!: 

cage! 1! : 

case ‘2'; 

case '3': 

case '4': 

case '5': 

case ‘'6': 

case '7': 
*bstr = (char) bit pattern(ésubarg); 
break; 


case '\\!: 
postr = '"\\'; 
break; 


case 'b': 
tpbstr = '\b!'; 
break; 


case “f": 
*pbstr = "\f'; 
break; 


case ‘n°: 
tbstr = ‘\n'; 
break; 


case. *r°: 
*bstr = ‘\r'; 
break; 


case. *t*< 
*pstr = ‘\t'; 
break; 


case ‘s': 
tpbstr = ' '; 
break; 


default: 
tbstr = *subarg: 
break; 


*pstr = *subarg; /* No special character handling.*/ 


} 


if (4 == STRINGLEN) 
exit_error(11, nullstr); 


tbstr = '\0'; 

} /* End of strget.*/ 

#else 

/* nck et ph lpia ala a ec ic oe pe Ae nt rr Se ae ee ey a x 
strload -- retrieve the <string> argument from the command line. 


x 
* 
x 
x 


x 
x 


x 
Escape sequences are treated just as defined in Cc (except \0, x 
which is an error). One extra escape sequence ('\s') exists in * 
order to handle multiple blanks on a line without bothering to * 
enclose the string in quotes. a 


strload(subarg, bstr) 


char *subarg; 
char *bstr; 
{ 


extern char *nullstr; 
register int ; 


for (j = 0; *subarg && j < STRINGLEN; bstr+t+, subarg++, j++) 


if (*subarg = '\\') /* Escape sequences. */ 
switch (*++subarg) 


{ 
case ‘O': 
ease 21" 
case '2': 
case ‘3': 
case ‘4°: 
casée’.*S$"s: 
case ‘6°: 
case ‘7': 
kbstr = (char) bit_pattern(ésubarg); 
break; 


case ‘\\°: 
*pstr = '\\': 
break; 
case 'b': 
abstr = '\b'; 
break; 
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case 'f'; 
*pstr = 
break; 


case ‘'n'‘: 
*pbstr = 
break; 


case 'r'; 
*pstr = 
break; 


case 't!: 
*pstr = 
break; 


case 's'; 
*bstr = ' '; 
break; 


default: 
*pbstr = *subarg; 
break; 

} 


else 


*bstr = *subarg; /* No special character handling.*/ 


if (j == STRINGLEN) 
exit_error(11, nullstr); 


*pbstr = '\O'; 
} ° /* End of strload.*/ 
#endif 


sana ta eee ee x 
- bit_pattern -- Change the \ddd format to a character symbol. It will * 
* ~ check to see if there are (at most two) other octal digits * 
* present. It does not allow the return of the null character. * 
* The pointer *ddd is only incremented by one for each extra = 
* digit, because the pointer will be incremented again upon * 
* returning from the function. . 


eee Nt a Sem asa ss puerta ere x / 
bit_pattern (ddd) 
char **ddd; 
{ 
extern char *nullstr; 
int hum; 


num = **ddd - 'Q!; /* Num is octal, otherwise we wouldn't be here.*/ 


if (isoctal(*(*ddd + 1))) /* Is the next character an octal digit?*/ 
{ 


num = 8 * num + *++%*ddd - 'OQ'; 


if (isoctal (*(*ddq +1))) 


/* How about this character?*/ 
num = 8 * num + *++%*ddd - ‘o* 
} 


if (!num) 
exit_error(10, nullstr); /* No \O allowed.*/ 


return (nun) ; 


/* End of bit pattern. */ 


/* «BER RRE me Be arc teesesorngeinsicrinet dieemregninccenien * 
* attachf -- Take the lines of <file2>, if any, and attach them * 
* to the lines of <filel>, if any. Slip determines how many * 
* lines of <filei> (<file2> if negative) are printed before * 
* printing the lines from both files together. It is possible to * 
* specify some Slippage even if the -a or -p flags are present. * 
* This is not an error. Attachf is smart enough to skip slip . 
. in that case, * 
Pea yi ee rime cen eaten ans a. x 

attachf(fpl, fp2, Slip, printsingle, printempty) ’ 

FILE SID, *fp2; 

int slip; 

tae printsingle, printempty; 

Booleannotempty; 


register int nxtc; 


ee Slippage, if any, up to the end of the file. 
for (; slip > 0 && fpl != NULL; slip--) 
{ 
notempty = (nxtc = nextc(fpl)) != '\n'; 
if (nxtc — EOF) 
{ 
fpl = NULL; 
break; 
} 
put_line(fpl); 


if (printsingle &&@ (printempt || notempt 
printf(strf, bstring); mPSy mpty) ) 


putchar('\n'); 
} 


if (slip < 0) 
Slip = -slip; 


for (; slip > 0 ¢¢« f{p2 != NULL; slip--) 


(continued on next page) 
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UTILITY 


Version 2.0 


The BEST just got BETTER! 







If you're serious about software 
development, consider the SEIDL 
MAKE UTILITY (SMK). SMK is 
not just another copy of the Unix 
Make. It was specifically designed 
to deliver features and performance 
not found in other makes. 


Y Structured Language to 
describe dependencies in a clear, 
concise and portable manner. 


VY Rich Command Set 


includes parameterized macros, 
variables, if-then-else, iteration, 
wild cards, exception cases, 
macro libraries, interactive state- 
ments, environment access, pat- 
tern matching and much more! 


VI ntelligent Analysis 


algorithm handles nested include 
files, library dependencies, and 
performs consistency tests to 
detect errors that other makes 
would blindly ignore. 


VY Seidl Version M anager 


compatibility lets you expand 
your system into the most 
comprehensive _ revision/version 
control system available. 






















“SMK is a very good Make indeed. 
Its major distinction is a truly simple 
Dependency Definition Language, 
easy to learn and easy to use... 
you'll probably bless SMK." 

— Sextant, July ’86 


"SMK offers many unique features. 
[The error handling facility] is 


extremely useful if a large number of 
files must be recompiled." 


— Computer Language, June °86 


DOS $3.50 p&h 
Version $QQ°> Call for other 


Only Op systems. 


Call Today 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 


SEIDL COMPUTER ENGINEERING 
es 





























3106 Hilltop Dr., Ann Arbor, MI 48103 
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Listing One (Listing continued, text begins on page 110.) | 
, 
- ({nxtc = nextc(fp2)) == EOF) 


fp2 = NULL; 
break; 


} 


if (printsingle be rintem t 
printf (strf, eatrines: pty |] nxtc != '\n')) 





put_line(fp2); 
, putchar('\n'); 


SQL Compatible Query System adaptable to any “oe the lines of each file together. 
operating environment. | matt (fpl l= NULL && fp2 != NULL) 

COL Query System. A subset of the Structured aes, Meee pea ee ee 
English Query Language (SEQUEL, or SQL) if (nxtc — EOF) 

developed by IBM. Linked files, Stored views, fpl = NULL; 

and nested queries result in a complete query break: 

capability. File system interaction isolated in an 

interface module. Extensive documentation put_line(fp1); 

guides user development of interfaces to other 


} , if ' 
record oriented file handlers. Steck, bee || nextc(fp2) != '\n‘) 


Portable Application Support System pat._tine tie 


if (nextc(fp2) == EOF) 


Portable Windowing System. Hardware fp2 = NULL; 
independent windowing system with borders, } 
attributes, horizontal and vertical scrolling. sotchae ta" }:2 
User can construct interface file for any } 
hardware. Interfaces provided for PC/XT/AT whtle (ipl Y= WULtI 
(screen memory interface and BIOS only { 
interface), MS-DOS generic (using ANSI.SYS), ee = nextc(fpl)) != '\n'; 
Xenix (both with and without using the curses 3 ‘ 
li if. (nextc(fpl) == EOF) 
interface), and C-library (no attributes). ee 
Screen 1/0, Report, and Form Generation if (printsingle && (printempty || notempty }) 
, c 1 ce t ‘ b i ; 
Systems. Field level interface between pai tas omnes 
application programs, the Query System, and putchar('\n'); 
the file system. Complete input/output 
formatting and control, automatic scrolling on while (fp2 != NULL) 
screens and automatic pagination on forms, A ee isclneélndie cz. tprintenpey: |i nekve (spay t= “\n") 
process intervention points. seven field types: printf(strf, bstring); 
8-bit unsigned binary, 16 bit signed binary, 16 cut linatée2): 
bit unsigned binary, 32 bit signed binary, 7 
monetary (based on 32 bit binary), string, and if terete “= EOF) 
date. 
putchar('\n'); 
$395.00 
. } /* End of attachf.*/ 
C Interpreter. Run the interpreter on any : rage Liluw co Sek & Line, peiee & tine. ee ee a, ie . 
hardware and on any operating system. fcr eS et af 
Develops true intermediate code, allowing full ee “ee 
C features in an interpreter. User configurable { 
interface to compiler library allows linkage register int Cc; 
with compiled routines. while((c = getc(fp)) != '\n' && ¢ != EOF) 
putchar(c); 
HARDWARE AND FILE SYSTEM } je Badcot put tine.*/ 
INDEPENDENT PR a eae ee core Aaa ‘ 
* nextc -- What is the next character? I realize that there are * 
“ some routines in some stdio.h files that do this for you, but * 
Ku BERG a this is not true of all of them. Hence this function. * 
URTZ fp Sn eld sthaeonc a a ar piso ew re a lee DR aE eG oy 
nextc (fp) 
GoOMPUTER OYSTEMS om am 
register int cs 
41-19 BELL BLVD. oe aes 
BAYSIDE, N.Y. 11361 bas ies 
} /* End of nextc.*/ 
/* ad canenentigi ey deeee apelin a rain genase ene eI a LEE EL TE RS * 
(718) 229-4540 * exit_error -- re out ve es error message for the * 
> appropriate error, then ex so * 
a a crane Sach ete ane Sear nl Sm ater iis AS Cs EI ore Pe ere ere ee x / 
*C-tree is a trademark of FairCom ore ee re 
char *details; 
IBM. SEQUEL, PC. XT. AT are trademarks of IBM Corp. { 
MS-DOS and Xenix are trademarks of Microsoft Corp extern char *error _msg[]; 
COL and the COL Logo are trademarks of Kurtzberg Computer fprintf(stderr, error_msg(errcode], program name, details); 
Systems exit (1); 
} /* End of exit_error.*/ End Listing 
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Data Entry Menus 


CLEAN SCREEN MACHINE 


Windows 





Prototyping Toolkit 











3S scape 








H@ Total Screen Control 


C-scape is a combination screen generator and library of 
screen I/O functions. Written for C programmers, C-scape 
brings a fresh approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your Own. 


H@ Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scape’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


@ Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 
functioning and complete program in a fraction of the time 
spent coding screens from scratch. 


C-scape’s extensive library includes just about all the data 
entry and display functions you'll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


@ Bridges to Power 


C-scape includes examples of how to bridge to other 
powerful tools such as c-tree and db__VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
TransLisp Plus and other packages that support calls to C. 


Hi Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to 
write for programmers in a hurry. A short introduction uses 
helpful examples to explain the C-scape design. Each func- 
tion is documented separately. An index makes reference 
easy, and a quick-reference card provides a synopsis of 
each function. 


@ Source Code Included/Portable/No 
Royalties/No Runtime License 

Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 


machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


lM Easy Prices/Risk-Free Terms 

Try C-scape for 30 days. If you are not satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 
See why some very major groups are standardizing on 
C-scape. 


C-scape (Lattice/Microsoft/others) 


C-scape with Dan Bricklin’s Demo Program $249 


Please add $3 for shipping; Massachusetts orders add 5% 
sales tax. 


Circle no. 342 on reader service card. 


CALL TODAY! 








Oakland Group, Inc.(U! 617-491-7311 
675 Massachusetts Avenue, Cambridge, MA 02139-3309 —— 800-233-3733 
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Get a Grip 
on Assembly 
Language. 


The award winning 
Visible Computer: 


8088. 












The Visible Computer is a book and 
software combination for mastering 
the elusive skills of assembly lan- 
guage. PC Tech Journal took one look 
and made it their September ’85 
“Program of the Month.” 

It’s an animated simulation of the 
PC's microprocessor that lets you see 
with your own eyes how assembly 
language works. You'll be using it as 
a debugging tool for years to come. 

It's a tutorial. A lot of people think 
the 350 page manual is the best book 
on assembly language ever written. 

It’s 45 demonstration programs you'll 
execute with the simulator, from simple 
register loads to advanced programs 
that manipulate interrupts and perform 
file I/O. And what you'll learn applies to 






















all 86 family proces- 
sors, including the $79.95 
80186 and 80286. _ not copy protected 









The Visible Computer for IBM PC/XT/AT and true 
compatibles. If your dealer doesn’t have it, order direct: 
Software Masters, 2714 Finfeather, Bryan, TX, 77801. 
(409) 822-9490. Please include $3.00 shipping. 

Bank cards accepted. 
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TVC takes you inside the 
processor as it executes programs. 


Software Masters” 
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Listing One (Text begins on page 120.) 


Listing 1. CHANGE.BAS Utility to search/replace text in a number of files. 


1000 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1900 
1910 
1920 
1930 
1940 
2000 
2010 
2030 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21,30 
2140 
2150 
2153 
21355 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2231 
2233 
2240 
2250 
2260 
2270 
2275 
2277 
2280 
2290 
3000 
5000 
5010 
5020 
5030 
9040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6065 
6070 
6080 
60390 
6100 


6110 
6120 
6125 
6130 
6140 
7000 
7003 


‘ Batch Find/Replace Utility Version 1.0 10/29/86 

‘ IBM PC BASICA version 2 or later 

‘ Copyright (c) 1987 Namir Clement Shammas 

DEFINT A-Z 

DIM FILENAMES (20) , STRNGS (30) , REPLACE (30) , REPLACES (30) , L$ (500) 

TRUE = 1 

FALSE = QO 

MAX.LINES = 500 ' Current maximum number of lines read froma file 


CLS 


TS = “BATCH FILE FIND/REPLACE PROGRAM" : GOSUB 8000 
PRINT 
TS = “VERSION 1.0" : GOSUB 8000 
PRINT : PRINT 
GOSUB 5000 ' Get filenames 
GOSUB 6000 ' Get strings 
FOR IFILE = 1 TO NUM.FILES 
GOSUB 7000 ' Read text lines from file 
FOR I = 1 TO NUM.STRINGS 
FOUND = FALSE 
FOR J = 1 TO NUM.LINES 
PTR = INSTR(LS (J) ,STRNGS (I) ) 
WHILE PTR > 0 
IF (FOUND = TRUE) THEN 2150 
FOUND = TRUE | 
LPRINT "KEYWORD : "“;STRNGS (I) 
BS = STRS(J) + ":" 
OFFSET = LEN (BS) 
LPRINE ge" ss LS 4d) 
LPRINT SPC (PTR+OFFSET) ;"*" 
IF (REPLACE(I) = FALSE) THEN 2240 
FLASTS "= “" 
IF PTR > 1 THEN FIRSTS = MIDS (L$ (J) ,1, (PTR-1) ) 
LASTS = ** 
IF (PTR+LEN (STRNGS(I))}) => LEN(LS(J)) THEN 2230 
LASTS = MID$(LS$(J), (PTR+LEN (STRNGS (I) ))) 
L$ (J) = FIRSTS + REPLACES(I) + LASTS 
LPRINT "BECOMES" : LPRINT 
LPRINT J;":";L$(J) 2: LPRINT : LPRINT 
PTR = INSTR(PTR+1, L$(J), STRNGS (I) ) 
WEND 
NEXT J | 
NEXT I | 
GOSUB 9000 ' Write file back | 
LPRINT : LPRINT 
NEXT IFILE 


LPRINT CHRS$ (140) ' FORM FEED 

‘ Subroutine to input filenames from the keyboard 
NUM.FILES = 0 

WHILE NUM.FILES <= 0 


INPUT “Enter number of files ";NUM.FILES 

PRINT 
WEND 
FOR I = 1 TO NUM.FILES 

PRINT "Enter filename # ";I;" "; 

INPUT FILENAMES(I) : PRINT 

IF FILENAMES(I) = "" THEN 5070 
NEXT I 
RETURN 
‘ Subroutines to inpur search/replace strings 
NUM.STRINGS = 0 


WHILE NUM.STRINGS <= 0 
INPUT "Enter number of search/replace strings ";NUM.STRINGS 
PRINT 
WEND 
FOR I = 1 TO NUM.STRINGS \ 
REPLACES(I) = "" 
PRINT : PRINT “For string # ";I 
INPUT " Enter string ";STRNGS(I) 
INPUT “ R)eplace F)ind ";AS$ 
IF (INSTR("“Rr",MIDS (AS$,1,1)) = 0) THEN REPLACE (I) = 
FALSE ELSE REPLACE(I) = TRUE 
IF REPLACE(I) = FALSE THEN 6125 
INPUT " - Enter replacement string "; REPLACES (I) 
PRINT 
NEXT I 
RETURN 
* Subroutines to read text lines 
LPRINT “PROCESSING FILE : "; FILENAMES (IFILE) 
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MAKE YOUR PC 
SEEM LIKE AN AT! 


7006 OPEN "I",1, FILENAMES (IFILE) 

7010 NUM.LINES = 0 

7020 WHILE (NOT EOF(1)) AND (NUM.LINES <= MAX.LINES) 
7030 NUM.LINES = NUM.LINES + 1 

7040 LINE INPUT#1, L$ (NUM. LINES) 

7050 WEND 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


7060 CLOSE #1 

7070 RETURN 

8000 ' Subroutine to center a message 
8010 PRINT SPC(40 - LEN(TS) /2);TS 
8020 RETURN 

9000 ‘Subroutine to write the updated file 
9010 OPEN "O",1,FILENAMES (IFILE) 

9020 FOR I = 1 TO NUM.LINES 

9030 PRINT#1, LS (I) 

9040 NEXT I 

9050 CLOSE#1 

9060 RETURN 
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End Listing One 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


Listing Two 


Listing 2. CHNG1.TRU the version of True BASIC CHANGE.BAS produced by the For the IBM-PC, AT, and clones 


BASIC-Converter. 
New Version 2.00 is MUCH FASTER! 


Pee it i ot oe oe ot oe oe oe oe ee We Oe De De Ae De Ae ee De Ae A a a i in in ee ae Dede ed ee eee Pee 


ceoeoecoeoeoeeeeeeeeteteeeeteeeeeee es 


10 ! This program converted from the Microsoft Advanced Basic Now blink free scrolling on CGA! 

11 ! language on the IBM PC to the True BASIC language. Now uses EMS/EEMS for Scroll Recall 
12-3 d ; 
1% f Conwertox copyright jo} i966 by: New Menu Program for Changing Options 
14 ! True BASIC, Inc. 

151 — NH 03755 GET A BOX FULL OF UTILITIES! 
16! All riahts rovarved. MAKE LIFE EASIER FOR ONLY $75! 
Lf,.3 

18 ! True BASIC makes no warranty, expressed or implied, that e Speed up your screenwriting 2-6x 

19 ! this converted program is a precise and accurate equivalent aie your ANSI.SYS to full VT100 
20 ! of the original BasicA program. This conversion is provided 2 slic eee ee circa ear: 
21 ! only as an aid to a complete conversion by the owner of the e Save scrolled lines into a file 

22 ! program being converted. e Add zip to your cursor keys 

23 ! e Free your eyes from scroll blinking 


24 LIBRARY "deflib"™ 

25 DECLARE DEF csrlin, oef, fre, hex$, inkey$S, loc, lof 

26 DECLARE DEF mkiS, mks$, cvi, cvs, oct$, csr_pos, val_a, err, erl 
27 

28 DEF Eof (f) 

29 IF end #f then LET eof = -1 else LET eof = 0 


e Easy installation 

¢ Get a 43 line screen wiIEGA 

¢ Get a 50 line screen wiCGA 

¢ No more annoying typeahead beep 

e Prevent screen phospher burnin 

¢ Control many programs’ use of color 
e Generate breakpts from keyboard 


JIALIG, AJOSUOD ISNY ISB 
Fast ANSI Console Driver 


30 END DEF e Shorten that annoying bell 

31 ¢ Over 50 other useful options 

32 DEF Loc (f) J : 

33 ASK #f£: record T_ARG1 The psychological difference is 

34. LET t_argl = -int (-(t_argl-1)/128) ee slg 

35 IF t_argl = 0 then let loc = 1 else let loc = t_argl —Lotus June 85 pg 8. 

= END DEF “So many handy functions rolled into 


one unobtrusive package” 


38 DEF Lof (f) —PC-World Feb 86 pg 282. 


39 ASK #f: filesize T_ARG1 


40 LET lof = t_argl “The support provided by the 

41 END DEF z publishers is extraordinary” 

42 —Capital PC Monitor May 86 pg 25. 

43 OPTION BASE 0 ‘.. the best choice for improving your 
44 console...” 

1000 ! Batch Find/Replace Utility Version 1.0 10/29/86 —Capital PC Monitor June 86 pg 6. 
1005 ! IBM PC BASICA version 2 or later 

1010 ! Copyright (c) 1987 Namir Clement Shammas 

1020 ! defint A-2 460p Manual (w/slip case) & disks $75. 


1030 dim filename$ (20), strng$(30), replace (30), replace$ (30), 1$ (500) 
1040 let true = 1 


1050 let false = 0 Satisfaction Guaranteed! 





1060 let max_ lines = 500 ! Current maximum number of lines read froma file vt 
1900 clear Order Yours Today! 
910 let tS = "BATCH FILE FIND/REPLACE PROGRAM" 
ok gosub 8000 HERSEY MICRO CONSULTING 
1920 print Box 8276, Ann Arbor, MI 48107 
ope gee Se S| ee, (313) 994-3259 VISA/MG/Amex 
1931 gosub 8000 
Pe ae DEALER INQUIRIES INVITED 
1941 print 
1945 OPEN #9 : PRINTER 
2000 gosub 5000! Get filenames 
2010 gosub 6000 ! Get strings 
2030 for ifile = 1 to num_files 
2060 gosub 7000 ! Read text lines from file 
2070 for i = 1 to num_strings (continued on next page) 
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compilers 
text editors 
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co-routines Li bra a 


compiler compilers 


window packages 


A Directory 
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pee C Source Code 
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languages 

cross compilers 
pre-processors 
function libraries * Group 
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text editors 









PC-DOS program 
lets your PC 

Read/Write/Format 

over 300formats 


<ENOCRP apg 


ty Fred Cisin 


$79.95 + $5.00 S/H Sales Tax if CA. 





Upgrades available from previous versions 
Ask about FREE CP/M emulator! <4 


To Order Contact: 


<ENGSUFT 


1454 Sixth Street, Berkeley, CA 94710 
vee (415) 525-3113 GS 


Circle no. 225 on reader service card. 


Enhance Your Turbo 
Pascal™ Programming 
rite 
TURBO-JET 


AOI Bahia an ole Fg EB) O EY 

* Advanced String and Numeric Formatting 

* Advanced File and Keyboard Handling 

¢ Subdirectory Utilities 

* Over 100 Files Included! 

Pascal Source Code included with all Routines 
Routines Crafted in Assembly Language 


No Royalties for Program Use 

Give Programs a Professional Look 
Don't Pay More For Less! 

Dealer Inquiries Invited 


TURBO-JET, Only $39.95 


Add $3.00 for Postage & Handling 
NY Residents add sales tax 
Lhe] eg = IVT T al TXRYo) Viele) a CMe alee 
P.O. Box 129 
Old Westbury, N.Y. 11568 
MC/VISA (516) 795-2800 
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Listing Two (Listing continued, text begins on page 120.) 


2080 let found = false 

2090 for j = 1 to num_lines 

2100 let ptr = pos(1$(j),strng$(i)) 

2110 do while ptr > 0 

2120 if (found = true) then goto 2150 

2130 let found = true 

2140 print #9 : "KEYWORD : ";STRNGS(I) 

2150 let b$ = str$(4)> @ os" 

2153 let offset = round(len(b$)) 

2i35; PRIAt $3" 5 Ls “s"sbS Wy) 

2160 print #9 : REPEATS$(" ", (PTR+OFFSET+1));"*" ! Manual fix on this line 
2170 if (replace(i) = false) then goto 2240 

2180 let firsts = "" 

2190 if ptr > 1° then let .firsts. = (1$(3)) (121+ (ptr-1)-1) 
#200 let: lasts ==" 

2210 if (ptr+len(strng$(i))) => len(1$(j)) then goto 2230 
2220 let last$ = (1$(j)) [ (ptr+len(strng$(i))) :maxnum] 
2230 let 1$(j) = first$ & replaceS(i) & last$ 

2231 print #9 : “BECOMES" 

2232 print #9 : 

f2o0- peine~ $9 -2:  Te@s"*sLS(g) 

2234 print #9 ; 

2235 print #9 : 

2240 let ptr = pos (1$(4),strng$(i),ptr+1) 

2250 loop 

2260 next j 

2270 next i 

2275 gosub 9000 ! Write file back 

2277 print #9 : 

2278 print #9 : 

2280 next ifile 

2290 print #9 :; CHRS(140) ! FORM FEED 

3000 stop | cme meen ca ne a a a ee ee a a 
9000 ! Subroutine to input filenames from the keyboard 
9010 let num_ files = 0 

2020 do while num_ files <= 0 

2030 input prompt “Enter number of files ": num_ files 


5040 print 

5050 loop 

9060 for i = 1 to num_ files 

9070 print “Enter filename # "; i; " "; 
5080 input filenames (i) 

5081 print 

5090 if filenameS(i) = "" then goto 5070 
5100 next i 


9110 return 

6000 ! Subroutines to inpur search/replace strings 

6010 let num_ strings = 0 

6020 do while num_ strings <= 0 

6030 input prompt “Enter number of. search/replace strings ": hum__strings 
6040 print 

6050 loop 

6060 for i = 1 to num_ strings 

6065 let replaces$(i) = "™ 


6070 print 

6071 print “For string # "; i 

6080 input prompt " Enter string ": strng$ (i) 
6090 input prompt " R)eplace F)ind ": a$ 


6100 if (pos ("Rr", (a$) [1:1]) = 0) then let replace(i) = 
false else let replace(i) = true 
6110 if replace(i) = false then goto 6125 
6120 input prompt " Enter replacement string ": replace$ (i) 
6125 print 
6130 next i 
6140 return 
7000 ! Subroutines to read text lines 
7003 print #9 : “PROCESSING FILE : "; FILENAMES (IFILE) 
7006 open #1: name filenameS (ifile), access input, create old 
7010 let num lines = 0 
7020 do while ((not eof(1) <> 0)) and (num__lines <= max lines) 
7030 let num_lines = num__lines+1 tg 
7040 line input #1:1$5(num_ lines) ! Manual fix here 
7050 loop 
7060 close #1 
7070 return 
8000 ! Subruotine to center a message 
8010 print tab(csr_post+40-len(t$)/2); ts 
8020 return 
9000 !Subroutine to write the updated file 
9010 open #1: name filename$(ifile), access Output, 


create 
9015 erase #1! this line is added a8 
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CLEAN SCREEN MACHINE 


Data Entry Menus 


Windows 


Prototyping Toolkit 








C scape 











—@ Total Screen Control 


C-scape is a combination screen generator and library of 
screen I/O functions. Written for C programmers, C-scape 
brings a fresh approach to the need for an easy-to-learn 
and use, but truly powerful and flexible screen manage- 
ment tool. 


C-scape’s kernel is your most powerful ally. Without re- 
quiring parameters you'll never use, it allows you to create 
tailored functions with ease and simplicity. Each key is in- 
dividually definable. If you know printf(), you can use 
C-scape. C-scape’s kernel provides a veritable screen 
design and construction toolkit to rewrite our functions or 
to write your own. 


@ Most Powerful Prototyping Available 


C-scape offers a unique approach to prototyping your soft- 
ware. You may use Dan Bricklin’s Demo Program to 
create, edit, and view your screens (you can even capture 
existing screens from other programs), and then use 
C-scape’s demo2c utility to convert each screen to code. 


You can design each screen with attributes such as colors, 
menu selections, data entry fields (including type, valida- 
tion, and field naming), masking, and text, and then 
automatically convert the entire screen to code. 


@ Powerful Function Library 


Use C-scape’s functions for Lotus-like, pull-down, or your 
own menu designs, automatic scrolling, pop-up windows 
(number limited only by RAM), logical colors, help, time 
and date, yes/no, tickertape fields, secure and protected 
fields, and many others, to turn your demo into a fully 


functioning and complete program in a fraction of the time 
spent coding screens from scratch. 


C-scape’s extensive library includes just about all the data 
entry and display functions you’ll ever need, including 
money functions, fully definable borders, and orthogonal 
field movement (get the latest list by calling for more infor- 
mation). And modifying our functions or writing your own 
is easy. C-scape adjusts automatically for CGA, EGA, 
monochrome, and the Hercules Graphics Card Plus in 
RamFont mode, and optionally writes directly to video 
memory, so it’s flexible and fast. 


Bridges to Power 

C-scape includes examples of how to bridge to other 7 
powerful tools such as c-tree and db__VISTA. You'll be in- 
tegrating demos to dictionaries to file handlers and 
database managers in no time. You can even use C-scape 
to provide the screen design for Al applications, using 
TransLisp Plus and other packages that support calls to C. 


& Clean, Complete Documentation 


C-scape’s documentation is a clear example of how to 
write for programmers in a hurry. A short introduction uses 
helpful examples to explain the C-scape design. Each func- 
tion is documented separately. An index makes reference 
easy, and a quick-reference card provides a synopsis of 
each function. 


@ Source Code Included/Portable/No 
Royalties/No Runtime License 

Providing source code at no additional cost gives you the 
freedom to modify existing functions without raising cost as 
a barrier. The source code includes all the low level 
routines you might need to port C-scape to an unsupported 


machine or compiler. Speaking of barriers, you pay no 
royalties or runtime license fees, either. 


@ Toll Free Support and Bulletin Board 


To make your job even easier, we provide technical sup- 
port (toll free), and access to our 24-hour Bulletin Board. 


@ Easy Prices/Risk-Free Terms 

Try C-scape for 30 days. If you are not Satisfied, return it 
for a refund. When you register, we send you source code. 
Order C-scape today, or call toll free for more information. 


See why some very major groups are standardizing on 
C-scape. 


C-scape (Lattice/Microsoft/others) Only $179 
C-scape with Dan Bricklin’s Demo Program $249 


Please add $3 for shipping: Massachusetts orders add 5% 
sales tax. 


Circle no. 342 on reader service card. 


en] CALL TODAY! 
617-491-7311 





Oakland Group, Inc.©) 


675 Massachusetts Avenue, Cambridge, MA 02139-3309 a 800-233-3733 
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Get a Grip 
on Assembly 
Language. 


The award winning 


Visible Computer: 
8088. 
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ss ji 


NON 
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The Visible Computer is a book and 
software combination for mastering 
the elusive skills of assembly lan- 
guage. PC Tech Journal took one look 
and made it their September ’85 
“Program of the Month.” 

It’s an animated simulation of the 
PC’s microprocessor that lets you see 
with your own eyes how assembly 
language works. You'll be using it as 
a debugging tool for years to come. 

It’s a tutorial. A \ot of people think 
the 350 page manual is the best book 
on assembly language ever written. 

Is 45 demonstration programs you'll 
execute with the simulator, from simple 
register loads to advanced programs 
that manipulate interrupts and perform 
file I/O. And what you'll learn applies to 
all 86 family proces- 
sors, inti the $79.95 


80186 and 80286.  notcopy protected 















The Visible Computer for IBM PC/XT/AT and true 
compatibles. If your dealer doesn’t have it, order direct: 
Software Masters, 2714 Finfeather, Bryan, TX, 77801. 
(409) 822-9490. Please include $3.00 shipping. 


Bank cards accepted. 


Circle no. 347 on reader service card. 






- TVC takes you inside the ~ 
processor as it executes programs. 


Software Masters” 
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Listing One (Text begins on page 120.) 


Listing 1. CHANGE.BAS Utility to search/replace text in a number of files. 


1000 * Batch Find/Replace Utility Version 1.0 10/29/86 

1005 ‘ IBM PC BASICA version 2 or later 

1010 ' Copyright (c) 1987 Namir Clement Shammas 

1020 DEFINT A-Z 

1030 DIM FILENAMES (20 

Dasma gatas > (20) , STRNGS (30) , REPLACE (30) , REPLACES (30) , L$ (500) 
1050 FALSE = 0 


oan reas = 500 ' Current maximum number of lines read froma file 


1910 TS = "BATCH FILE FIND/REPLACE PROGRAM" 


: GOSUB 8000 
1920 PRINT 
1930 TS = "VERSION 1.0" : GOSUB 8000 
1940 PRINT : PRINT 
2000 GOSUB 5000 ' Get filenames 
2010 GOSUB 6000 ' Get strings 
2030 FOR IFILE = 1 TO NUM.FILES 
2060 GOSUB 7000 ' Read text lines from file 
2070 FOR I = 1 TO NUM.STRINGS 
2080 FOUND = FALSE 
2090 FOR J = 1 TO NUM.LINES 
2100 PTR = INSTR(LS (J) ,STRNGS (I) ) 
2110 WHILE PTR > 0 
2120 IF (FOUND = TRUE) THEN 2150 
2130 FOUND = TRUE 
2140 LPRINT “KEYWORD : "“;STRNGS (TI) 
2150 BS = STRF.(J) +0 "3" 
2193 OFFSET = LEN (BS) 
2155 LPRINT J; "“:"7L$ (J) 
2160 LPRINT SPC (PTR+OFFSET) ;"*" 
2219 IF (REPLACE(I) = FALSE) THEN 2240 
2180 FIRSTS = "" 
2190 IF PTR > 1 THEN FIRSTS = MIDS(LS$(J),1, (PTR-1)) 
2200 LASTS = “" 
2210 IF (PTR+LEN(STRNGS$(I))) => LEN(L$(J)) THEN 2230 
2220 LASTS = MIDS$(L$(J), (PTR+LEN (STRNGS (I) ))) 
2230 L$(J) = FIRSTS + REPLACES(I) + LASTS 
2231 LPRINT “BECOMES" ; LPRINT 
2233 LPRINT Ji":"*sLS (J): “LPRINT + -LPRINT 
2240 PTR = INSTR(PTRt+1, L$ (J), STRNGS (I) ) 
2250 WEND 
2260 NEXT J 
2270 NEXT I 
2275 GOSUB 9000 ' Write file back 
2277 LPRINT : LPRINT 
2280 NEXT IFILE 
2290 LPRINT CHRS$(140) ‘ FORM FEED 
JOOO END 8 mean mn a 
5000 ' Subroutine to input filenames from the keyboard 
5010 NUM.FILES = 0 
5020 WHILE NUM.FILES <= 0 
5030 INPUT “Enter number of files ";NUM.FILES 
5040 PRINT 
5050 WEND 
5060 FOR I = 1 TO NUM.FILES 
5070 PRINT "Enter filename # ";I7" "7 
5080 INPUT FILENAMES (I) : PRINT 
5090 IF FILENAMES(I) = "" THEN 5070 
5100 NEXT I 
5110 RETURN 
6000 * Subroutines to inpur search/replace strings 
6010 NUM.STRINGS = 0 
6020 WHILE NUM.STRINGS <= 0 
6030 INPUT "Enter number of search/replace strings “";NUM.STRINGS 
6040 PRINT 
6050 WEND 
6060 FOR I = 1 TO NUM.STRINGS 
6065 REPLACES (I) = "" 
6070 PRINT : PRINT "For string # ";I 
6080 INPUT " Enter string ";STRNGS (TI) 
6090 INPUT “™ R)eplace F)ind ";A$ 
6100 IF (INSTR("Rr",MIDS$(A$,1,1)) = 0) THEN REPLACE(I) = 
FALSE ELSE REPLACE({I) = TRUE 
6110 IF REPLACE(I) = FALSE THEN 6125 
6120 INPUT " - Enter replacement string “>REPLACES (I) 
6125 PRINT 


6130 NEXT I 

6140 RETURN 

7000 * Subroutines to read text lines 

7003 LPRINT “PROCESSING FILE : "-F IT LENAMES (IFILE) 
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7006 
7010 
7020 





OPEN “"I",1, FILENAMES (IFILE) 
NUM. LINES = 0 
WHILE (NOT EOF(1)) AND (NUM.LINES <= MAX.LINES) 


7030 NUM. LINES = NUM.LINES + 1 
7040 LINE INPUT#1, LS (NUM. LINES) 
7050 WEND 

7060 CLOSE #1 

7070 RETURN 

8000 ‘ Subroutine to center a message 
8010 PRINT SPC(40 -— LEN(TS)/2);TS 
8020 RETURN 

9000 ‘Subroutine to write the updated file 
9010 OPEN "O",1, FILENAMES (IFILE) 

9020 FOR I = 1 TO NUM.LINES 

9030 PRINT#1, LS (1) 

9040 NEXT I 

9050 CLOSE#1 

9060 RETURN 


End Listing One 


Listing Two 


Listing 2. CHNG1.TRU the version of True BASIC CHANGE.BAS produced by the 
BASIC-Converter. 


10 
ad 
12 
3 
14 
15 
16 
Li 
18 
19 
20 
Zi 
22 
23 
24 
25 
26 
ay 
28 
29 
30 
31 
sz 
33 
34 
39 
36 
37 
38 
39 
40 
41 
42 
43 
44 


1000 
1005 
1010 
1020 ! 
1030 
1040 
1050 
1060 
1900 
1910 
1911 
1920 
1930 
L331 
1940 
1941 
1945 
2000 
2010 
2030 
2060 
2070 


This program converted from the Microsoft Advanced Basic 
language on the IBM PC to the True BASIC language. 


! 

! 

! 

! Convertor copyright (c) 1985 by: 
! i1rue. BASIC, - Inc. 

! Hanover, NH 03755 

! All rights reserved. 
! 

! 

! 

! 

1 

t 


True BASIC makes no warranty, expressed or implied, that 
this converted program is a precise and accurate equivalent 
of the original BasicA program. This conversion is provided 
only as an aid to a complete conversion by the owner of the 
program being converted. 

1 

LIBRARY “deflib" 

DECLARE DEF csrlin, oef, fre, hex$, inkey$, loc, lof 

DECLARE DEF mki$, mks$, cvi, cvs, oct$, csr pos, Val a, 6rk, erl 


DEF Eof (f) 
IF end #f then LET eof = -1 else LET eof = 0 
END DEF 


DEF Loc (f) 
ASK #f£: record T_ARG1 
LET t_argl = -int(-(t_argl-1)/128) 
IF t_argl = 0 then let loc = 1 else let loc =t argl 
END DEF 
DEF Lof (f) 
ASK #f: filesize T ARG1l 
LET lof = t_argl r 
END DEF 


OPTION BASE 0 


! Batch Find/Replace Utility Version 1.0 

! IBM PC BASICA version 2 or later 
! Copyright (c) 1987 Namir Clement Shammas 

defint A-z 

dim filenames (20), strng$ (30), replace (30), 
let true = 1 

let false = 0 
let max_ lines = 
clear 

let tS = "BATCH FILE FIND/REPLACE PROGRAM" 
gosub 8000 

print 

let t$ = "VERSION 1.0" 

gosub 8000 
print 
print 

OPEN #9 : 
gosub 5000 


10/29/86 


replace$ (30), 1$(500) 


500 ! Current maximum number of lines read from a file 


PRINTER 
! Get filenames 
gosub 6000 ! Get strings 
for ifile = 1 to num_ files 
gosub 7000 ! Read text lines from file 


fori-=ilt s ti 
o num__string (continued on next page ) 
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SD DD OOP ODE DD ALIA LELNAD IOS 


MAKE YOUR PC 
SEEM LIKE AN AT! 


MAKE YOUR AT 
SEEM LIKE A 
DREAM MACHINE! 


ANSI-” 
CONSOLE 


The Integrated Console Utility™ 


FAST, POWERFUL 
ANSLSYS REPLACEMENT 


For the IBM-PC, AT, and clones 
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New Version 2.00 is MUCH FASTER! 
Now blink free scrolling on CGA! 


Now uses EMS/EEMS for Scroll Recall 
New Menu Program for Changing Options 


GET A BOX FULL OF UTILITIES! 
MAKE LIFE EASIER FOR ONLY $75! 


eee@ecee#sftiesfwseeFewe#e#ee#e#e#e#eee#eeee#es &@ &@ 


¢ Speed up your screenwriting 2-6x 
e Extend your ANSI.SYS to full VT100 
e Add many more escape sequences 
¢ Scroll lines back onto screen 

¢ Save scrolled lines into a file 

e Add zip to your cursor keys 

e Free your eyes from scroll blinking 
e Easy installation 

¢ Get a 43 line screen WIEGA 

¢ Get a 50 line screen w/CGA 

¢ No more annoying typeahead beep 
¢ Prevent screen phospher burnin 

* Control many programs’ use of color 
¢ Generate breakpts from keyboard 

¢ Shorten that annoying bell 

* Over 50 other useful options 


JIALIG] 9JOSUOD ISNY ISBA 
















“The psychological difference is 
astonishing” 
—Lotus June 85 pg 8. 


“So many handy functions rolled into 
one unobtrusive package” 
—PC-World Feb 86 Pg 282. 


“The support provided by the 
publishers is extraordinary” 
—Capital PC Monitor May 86 pg 25. 


“... the best choice for improving your 


console...’ 
—Capital PC Monitor June 86 pg 26. 


460p Manual (w/slip case) & disks $75. 


Satisfaction Guaranteed! 
Order Yours Today! 


HERSEY MICRO CONSULTING 
Box 8276, Ann Arbor, MI 48107 
(313) 994-3259 VISA/MC/Amex 


DEALER INQUIRIES INVITED 
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PC-DOS program 
lets your PC 

Read/Write/Format 

over 300formats 


X<ENOCRRYsaPcG 


ty Fred Cisin 


$79.95 + $5.00 S/H Sales Tax if CA. 


Upgrades available from previous versions 
Ask about FREE CP/M emulator! © 


To Order Contact: 


x<ENGSver 


1454 Sixth Street, Berkeley, CA 94710 
vate) (415) 525-3113 GS 


Circle no. 225 on reader service card. 





Enhance Your Turbo 
Pascal™ Programming 


ide 
TURBO-JET 


TO irda Nae oonh oer eR BN er)y 

¢ Advanced String and Numeric Formatting 

¢ Advanced File and Keyboard Handling 

* Subdirectory Utilities 

¢ Over 100 Files Included! 

Pascal Source Code included with all Routines 
Routines Crafted in Assembly Language 


No Royalties for Program Use 

Give Programs a Professional Look 
Don’t Pay More For Less! 

Dealer Inquiries Invited 


Uso] amen aE RL 


Add $3.00 for Postage & Handling 
NY Residents add sales tax 
TOC Business Solutions, Inc. 
P.O. Box 129 
Old Westbury, N.Y. 11568 
MC/VISA (516) 795-2800 





Circle no. 345 on reader service card. 
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Listing Two (Listing continued, text begins on page 120. ) 


2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2153 
2iga 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2231 

2232 

2233 

2234 

2235 

2240 

2250 

2260 

2270 

22to 

2277 
2278 

2280 
2290 
3000 
5000 

5010 
5020 

5030 

5040 
5050 

5060 

5070 

5080 

5081 

5090 

5100 

2.0 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6065 

6070 

6071 

6080 

6090 
6100 


6110 
6120 
6125 
6130 
6140 
7000 
7003 
7006 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
8000 
8010 
8020 
9000 
9010 
9015 


let found = false 

for j} = 1 to num. lines 

let ptr = pos (1$(j),strng$(i)) 

do while ptr > 0 

if (found = true) then goto 2150 
let found = true 

print #9 : “KEYWORD : ";STRNGS(I) 
let b$ = str$(j)} & ":" 


let offset = round(len(bS$)) 

print ’4€9° 3° oJ2"3"sL$ WW) 

print #9 : REPEATS(" ", (PTR+OFFSET+1));"*" ! Manual fix on this line 
if (replace(i) = false) then goto 2240 


Let firsts. .-."* 

if ptr > 1 then let first$ = 
let last$ = "" 

if (ptr+len(strng$(i))) => len(1$(3)) then goto 2230 
let last$ (1$(3)) [ (ptrt+len (strng$ (i) )) smaxnum] 

let 1$(j) = first$S & replace$S(i) & lasts 

print #9 : “BECOMES" 

print #9 : 
print: ¢$ -: 
print #9 ; 
print #9 ;: 
let ptr = pos (1$(}j),strng$ (i),ptr+1) 
loop 

next 4 
next i 
gosub 9000 
print £9 -: 
print #9 ;: 
next ifile 
print #9 : CHR$(140) ! FORM FEED 

stop | -----~-----—~-~----~-- - -- - - - - + 

! Subroutine to input filenames from the keyboard 

let num_ files = 0 

do while num_ files <= 0 

input prompt “Enter number of files ": num_ files 

print 

loop 

for 1 = 1 to num_ files 

print “Enter filename # "; i; " "; 

input filename$ (i) 

print 

if filename$(i) = "" then goto 5070 

next i 

return 

! Subroutines to inpur search/replace strings 

let num_strings = 0 

do while num_ strings <= 0 

input prompt “Enter number of. search/replace strings ": num__strings 
print 

loop 

for i = 1 to num_strings 

let replace$(i) = "" 

print 

print "For string # "7; i 

input prompt " Enter string “: strng$ (i) 

input prompt " R)eplace F)ind ": a$ 

if (pos("Rr", (a$)({1:1]) = 0) then let replace(i) = 

false else let replace(i) = true 

if replace(i) = false then goto 6125 

input prompt " Enter replacement string "“: 


(1$ (3)) [121+ (ptr-1)-1]) 


Jr" 3" 7 US (a) 


! Write file back 


replace$ (i) 


print 

next i 

return 

! Subroutines to read text lines 

print #9: “PROCESSING FILE : “;FILENAMES (IFILE) 


open #1: name filenameS(ifile), access input, create old 
let num_lines = 0 
do while ((not eof(1) <> 0)) and (num_lines <= max lines) 


let num_ lines = num_lines+l 

line input #1:1$(num_ lines) ! Manual fix here 
loop 

close #1 

return 


! Subruotine to center a message 

print tab(csr_pos+40-len(t$)/2); ts 

return 

'Subroutine to write the updated file 

open #1: name filename$(ifile), access output, create old 
erase #1 ! this line is added 
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9020 for i. = 1 to num_.lines 
9030 print #1:1$(1) 

9040 next i 

9050 close #1 

9060 return 

9061 end 


End Listing Two 


Listing Three 


Listing 3. CHNG2.TRU the True BASIC version of CHANGE.BAS that is 
translated manually. 


! Batch Find/Replace Utility Version 1.0 10/29/86 

! IBM PC True BASIC version 1 

! Copyright (c) 1987 Namir Clement Shammas 

DIM FILENAMES (20) , STRNGS (30) , REPLACE (30) , REPLACES (30) , L$ (500) 

LET TRUE = 1 

LET FALSE = 0 

LET MAX_LINES = 500 ! Current maximum number of lines read from a file 
CLEAR ! Clear screen 

CALL CenterText ("BATCH FILE FIND/REPLACE PROGRAM") 


\ F\ CF) Software 
Quelo® 68000 Development 
U7 ~ Tools 


Quelo Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing 
ROMable code, extensive indexed typeset manuals 
and produces S-records, Intel hex, extended TEK hex, 
UNIX COFF and symbol cross references. Portable 
source written in ‘“‘C” is available. It has been ported to 
a variety of mainframes and minis including VAX. 


68020 Assembler Package 
For CP/M-86, -68K and MS/PC-DOS ........ $ 750 


68000/68010 Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS..... $ 595 


68000 ‘“‘C” Cross Compiler 
For MS/PC-DOS by Lattice, Inc. 


With Quelo 68000/68010 Assembler Package $1095 
With Quelo 68020 Assembler Package ...... $1250 


Call Patrick Adams today: Quelo, Inc. 
2464 33rd W. Suite #173 
Seattle, WA USA 98199 
Phone 206/285-2528 


COD, Visa, MasterCard Telex 910-333-8171 





Trademarks: CP/M, Digital Research; MS, Microsoft Corporation; Quelo, 
Quelo, Inc 


Circle no. 377 on reader service card. 


PRINT 
CALL CenterText ("VERSION 1.0") 


PRINT SOURCE CODE LIBRARIAN & 


PRINT 


OPEN #9 : PRINTER REVISION CONTROL SYSTEM 


CALL GetFile (FILENAMES, NUM FILES) ! Get filenames 











CALL GetStrings (STRNGS, REPLACES, REPLACE,NUM STRINGS) ! Get strings TLIB™ keeps ALL versions of your program in ONE 
FOR IFILE = 1 TO NUM FILES | compact library file, even with hundreds of revisions! 
CALL ReadLines (LS, FILENAMES, IFILE, NUM LINES) ! Read text lines from file ¢ Super Fast! Updates (deltas) average 5-7 times faster 
FOR I = 1 TO NUM STRINGS than PC/IX (Unix) SCCS. TLIB updates libraries faster than 
LET FOUND = FALSE many editors load and save files! 
FOR J = 1 TO NUM_LINES e LAN-compatible! Shared libraries with PC Network! 
ere = POS (L$ (J) ,STRNG$(I)) e Synchronized control of multiple reiated source files. 

gtek eei. e ¢ Use with floppies or hard disk. TLIB doesn't need big 

IF (FOUND = FALSE) THEN temporary files. so you can maintain a 300K library on one 

LET FOUND = TRUE he earnckelte. with room to spare, even with TLIB itself on 

ot ae oS a € same aisk. And libraries are more compact than with 

chee #9; KEYWORD : "“;STRNGS (I) | most other revision management systems. | 
|e Perfect f 

LET BS = STRS(J) & ":" ! Use & to concatenate strings Mersan, Men ese i sets 

LET OFFSET = LEN (BS) | written. is never modified. Libraries are only appended, to 

PRINT #9: J;":";L$(g) | minimize the chance of data loss due to a power glitch or 

PRINT #9 : REPEATS (" "| (PTRHOFFSET+1) );"A" | hardware crash. And TLIB isn’t copy-protected. either. 

IF (REPLACE (I) = TRUE) THEN | ¢ Free copy of Landon Dyer’s excellent public domain MAKE 

LET FIRSTS = "« | utility. With macros. full source code. For DOS & VAX/VMS. 

IF PTR > 1 THEN LET FIRSTS = L$ (J) [1:(PTR-1) ] PC/MS-DOS 2.x & 3.x Just $99.95 + $3 s/h Visa/MC 
LET LASTS = ? | 


IF (PTR+LEN (STRNGS(I))) < LEN(L$(J)) THEN BURTON SYSTEMS SOFTWARE 


LET LASTS = L$ (J) [ (PTR+LEN (STRNG ; | P.O. Box 4156, Cary, NC 27511-4156 
He se ( $(I))) :LEN(L$(J)) ] | (919) 469-3068 


LET L${J) = FIRSTS ¢ REPLACES (I) & LASTS ; ! 
PRINT #9 : “BECOMES” Circle no. 212 on reader service card 


PAWNS 


SA nd 
oa 


PRINT #9 : 
PRINT #9 
END IF 
a PTR = POS (LS (J) , STRNGS (I) , (PTR+1) ) 
NEXT J 

TRANSFER DATA BETWEE 

600 DIFFERENT COMPUTER SV ere 
WORD PROCESSORS TOO 
QUICK TURN-AROUND 
PRICES FROM $9 PER DISK 
CALL OR WRITE FOR YOUR 


FREE CATALOG 


CALL WriteLines (LS, FILENAMES, REPLACE, IFILE, NUM LINES) 
PORT-A-SOFT 


! Write file back 
555 S. STATE ST., SUITE #12 


PRINT #9 ; 
PRINT #9 : 

P.O. BOX 1685, OREM, UT 84057 
801) 226-6704 


NEXT IFILE 
Circle no. 229 on reader service card. 








J; oer Le (J) 












PRINT #9 : CHRS$(140) ! FoRM FEED 






SUB GetFile (FILENAMES (), NUM FILES) 


‘ Subroutine to input filenam 
es from t 
LET NUM_FILES = 0 ac 


DO WHILE NUM_FILES <= 0 
INPUT PROMPT “Enter n i aa ; 
ati umber of files >NUM_FILES 
LOOP 
FOR I = 1 TO NUM FILES 
LET FILENAMES(I) = "« 
DO WHILE FILENAMES (I) = “ 
PRINT “Enter filename # Reae Ae 
INPUT FILENAMES (1) 














(Continued on next page) 
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COMBINE THE 
RAW POWER OF FORTH 
WITH THE CONVENIENCE 
OF CONVENTIONAL LANGUAGES 


HS 





FORTH 


Why HS/FORTH? Not for speed 
alone, although it is twice as fast as 
other full memory Forths, with near 
assembly language performance 
when optimized. Not even because 
it gives MANY more functions per 
byte than any other Forth. Not be- 
cause you can run all DOS com- 
mands plus COM and EXE programs 
from: within HS/FORTH. Not be- 
cause you can single step, trace, de- 
compile & dissassemble. Not for the 
complete syntax checking 8086/ 
8087/80186 assembler & optimizer. 
Nor for the fast 9 digit software float- 
ing point or lightning 18 digit 8087 
math pack. Not for the half mega- 
byte LINEAR address space for 
quick access arrays. Not for com- 
plete music, sound effects & graph- 
ics support. Nor the efficient string 
functions. Not for unrivaled disk flex- 
ibility — including traditional Forth 
screens (sectored or in files) or free 
format files, all with full screen edi- 
tors. Not even because |/O is as 
easy, but far more powerful, than 
even Basic. Just redirect the charac- 
ter input and/ or output stream any- 
where — display, keyboard, printer 
or com port, file, or even a memory 
buffer, You could even transfer con- 
trol of your entire computer to.a 
terminal thousands of miles away 
with a simple >COM <COM pair. 
Even though a few of these reasons 
might be sufficient, the real reason 
is that we don’t avoid the objections 
to Forth — WE ELIMINATE THEM! 


Public domain products may be 
cheap; but your time isn’t. Don't 
shortchange yourself. Use the best. 
Use it now! 

HS/FORTH, complete system: $395. 
with “FORTH: A Text & Reference” 
by Kelly and Spies, Prentice-Hall 
and “The HS/FORTH Supplement” 
by Kelly and Callanan 


7 va " Visa Mastercard — 
HARVARD 
SOFTWORKS 


PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 


Circle no. 132 on reader service card. 
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Listing Three (Listing continued, text begins on page 120.) 


PRINT 
LOOP 
NEXT I 
END SUB 


SUB Get Strings (STRNGS () , REPLACES () , REPLACE () , NUM_STRINGS) 


! Subroutines to inpur s strings 
Bet snug Bernice A earch/replace strings 
DO WHILE NUM STRINGS <= 0 
INPUT PROMPT "Enter number of search/re 
PRINT 
LOOP 
FOR I = 1 TO NUM STRINGS 
LET REPLACES(I) = "" 
PRINT 
PRINT “For string # “;I 
INPUT PROMPT " Enter string ":STRNGS (I) 
INPUT PROMPT " R)eplace F)ind ":A$ 
IF’ (POS ("Rr",A$S[(1:1]) = 0) THEN 
LET REPLACE(I) = FALSE 
ELSE 
LET REPLACE(I) = TRUE 
INPUT PROMPT " Enter replacement string ":REPLACES (I) 
END IF 
PRINT 
NEXT I 
END SUB 


place strings ":NUM_STRINGS 


SUB ReadLines (L$ (), FILENAMES () , INDEX,NUM LINES) 
! Subroutines to read text lines - 
PRINT #9 : “PROCESSING FILE : ";FILENAMES (INDEX) 
OPEN #1 : NAME FILENAMES (INDEX) , ORGANIZATION TEXT,: ACCESS INPUT, CREATE OLD 
LET NUM_LINES = 0 
DO WHILE MORE #1 
LET NUM LINES = NUM_LINES + Z 
LINE INPUT#1 : L$ (NUM_LINES) 
LOOP 
CLOSE #1 
END SUB 


SUB CenterText (T$) 

! Subroutine to center a message 

PRINT REPEATS (" ", (40 - LEN(T$)/2));TS 
END SUB ~ 


SUB WriteLines (L$ (),FILENAMES() , INDEX, NUM_LINES) 
!Subroutine to write the updated file 
OPEN #1 : NAME FILENAMES (INDEX) , ORGANIZATION TEXT, ACCESS OUTPUT, CREATE OLD 
ERASE #1 
FOR I = 1 TO NUM _LINES 
PRINT#1 ; LS (TI) 
NEXT I 
CLOSE#1 
END SUB 


END End Listing Three 


2 e 
Listing Four 
Listing 4. CHNG1.BAS the first QuickBASIC version of CHANGE.BAS that is 
translated manually. 


' Batch Find/Replace Utility Version 1.0 10/29/86 


* IBM PC - QuickBASIC version 2 
' Copyright (c) 1987 Namir Clement Shammas 
DEFINT A-Z 
DIM FILENAMES (20) , STRNGS (30) , REPLACE (30) , REPLACES (30) , L$ (500) 
TRUE = 1 
FALSE = 0 
MAX.LINES = 500 ‘ Current maximum number of lines read froma file 
CLS 
TS = "BATCH FILE PIND/REPLACE PROGRAM" : GOSUB Center 
PRINT 
TS = "VERSION 1.0" : GOSUB Center 
PRINT : PRINT 


GOSUB GetFile ‘ Get filenames 
GOSUB GetStrings ‘ Get strings 
FOR IFILE = 1 TO NUM.FILES 
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GOSUB ReadLines ' Read text lines from file 
FOR I = 1 TO NUM.STRINGS 
FOUND = FALSE 
FOR J = 1 TO NUM.LINES 
PTR = INSTR(LS (J) ,STRNGS(I)) 
WHILE PTR > 0 
IF. (FOUND = FALSE) THEN 
FOUND = TRUE | 
LPRINT “KEYWORD : “;STRNGS (I) 
END IF 
BS = STRS(J) + "3" 
OFFSET = LEN (BS) 
LPRINT Jp 3"2L${J) . 
LPRINT SPC (PTR+OFFSET) :"*" 
IF (REPLACE(I) = TRUE) THEN 
FIRSTS = 
IF PTR > 1 THEN FIRSTS = MIDS(LS(J),1, (PTR-1) ) 
LASTS = "* 
IF (PTR+LEN (STRNGS(I))) < LEN(LS$(J)) THEN 
LAST$ = MID$(L$(J), (PTR+LEN (STRNGS (I) ))) 
END IF 
L$(J) = FIRSTS + REPLACES(I) + LASTS 
LPRINT "BECOMES" : LPRINT 
LPRINT J;":";LS$(J) : LPRINT : LPRINT 
END IF 
PTR = INSTR(PTR+1,L$ (J), STRNGS (I) ) 
WEND 
NEXT J 
NEXT I 
GOSUB WriteLines ‘ Write file back 
LPRINT : LPRINT 


NEXT IFILE 

LPRINT CHRS(140) ‘ FORM FEED 

ERNE) meme se nr Fr cee rere ern oils creint ieanse 
GetFile: ' Subroutine to input filenames from the keyboard 


NUM.FILES = 0 
WHILE NUM.FILES <= 0 
INPUT "Enter number of files “sNUM.FILES 


PRINT 
WEND 
FOR I = 1 TO NUM.FILES 
FILENAMES (I) = "" 


WHILE FILENAMES(I) = "" 
PRINT "Enter filename # ";I;" "> 
INPUT FILENAMES (I) : PRINT 
WEND 
NEXT I 
RETURN 
GetStrings: ‘ Subroutines to inpur search/replace Strings 
NUM.STRINGS = 0 
WHILE NUM.STRINGS <= 0 


INPUT “Enter number of search/replace strings ";NUM.STRINGS 


PRINT 

WEND 

FOR I = 1 TO NUM.STRINGS 
REPLACES(I) = 
PRINT : PRINT "For String # ";I 
INPUT " Enter string "; STRNGS (T) 
INPUT: * R)eplace F)ind. ":As 


If (INSTR ("Rr", MIDS (AS, 1,1) ) = 0) THEN REPLACE (I) = 
FALSE ELSE REPLACE (I) = TRUE 
IF REPLACE(I) = TRUE THEN 


INPUT * Enter replacement String “; REPLACES (I) 
END IF 
PRINT 
NEXT I 
RETURN 
ReadLines: ' Subroutines to read text lines 


LPRINT “PROCESSING FILE : "; FILENAMES (IFILE) 
OPEN "I", 1, FILENAMES (IFILE) 
NUM.LINES = 0 
WHILE -(NOT EOF (1)) AND (NUM.LINES <= MAX .LINES) 
NUM.LINES = NUM.LINES + 
LINE INPUT#1, L$ (NUM. LINEs) 
WEND 
CLOSE #1 
RETURN 
Center: ! Subroutine to center a message 
PRINT SPC(40 - LEN (TS) /2);TS 
RETURN 
WriteLines: ‘Subroutine to write the updated file 
OPEN “O", 1, FILENAMES (IFILE) 


(continued on next page) 
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FLASH UP YOUR PROGRAMS WITH 


POPSCREEN. 


THE SCREEN GENERATOR FOR PROGRAMMERS 


2 


Create instantaneous, full 
color, pop-up displays and 
windows for your programs. 
Design your’ displays 
onscreen, in view, with 
easy, automated routines. 


PopScreen. automatically 
compiles your displays to 
compact .obj modules which 
link easily and integrally into 
your programs at link time. 
Will write displays as .asm 
or inline code for Assembler 
and Turbo Pascal. 


Requires NO SATELITE 
DISPLAY FILES or resident 
loaders to accompany your 
C, Pascal, or Assembly 
programs. Your final 
Program looks professional 
and is completely _ self- 
contained, in one _ integral 
file. 


Dbase Ill and batch file 
programs require only one 
external display file for all 
your program's displays. 


Simple to use, includes 
manual & tutorial. A single 
procedure call pops your 
display to screen in .015 
seconds. Average display 
size is only 500 bytes. 


POPSCREEN SUPPORTS: 
MONOCHROME, CGA, EGA, PGC; 
ASSEMBLERS: (ALL); 

C: (IBM, LATTICE, MicRosorFt): 


PASCAL: (IBM, MicROSoFT, 
TURBO PASCAL); 


Basic WITH BLOAD; DBASE Ill; 
WILL CREATE -COM DISPLAYS FOR 
BATCH FILES & APPLICATIONS. 


POPSCREEN 
ONLY $39.95 


Circle no. 383 on reader service card. 


BAYSOFT 
BOX 6562-p, ALBANY, CA. 94706 
415-527-3300 


30 DAY 
SATISFACTION GUARANTEE 
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Jou Laboratories 
presents 


EditingTools 
new version 2.1 


A Superb 
Text Editor 
with an Intelligent 
DOS Shell 


Don‘t use your PC 
without it 


EditingTools Editor 
Fast, powerful, simple to use. 
Edit multiple files, lmuited only 
by available memory. Move text 
among files. Deleted lines are 
recoverable from the trash file. 


EditingTools DOS Shell 
An intelligent interface between 
DOS and the Editor. Load 
multiple directories as menus in 
easy to read table format - names 
of files with the same extension 
are sorted into a column, labeled 
by their common extension. 
Select a file to edit, or a program 
to execute without worrying 
about paths. 


Shell Commands 
Execute DOS Command, Change 
Color/ Drive, ChDir, Copy, 
Delete, Edit, Execute, Move, 
Rename, Load/Erase Directory, 
Previous/ Next Directory, Print, 
MkDir, Store/Recall Command, 
List Commands, Return To 
Editor, and more. 


Editor Commands 

Auto Insert/ Indent, Indent 
Block, Previous/ Next File, Edit 
Trash File, Verify Key, Restore 
Line, Find/Replace, Goto Line, 
Repeat/ Reverse Goto, Tab 
Right/ Left, List Commands, 
Blank Screen, Return To Shell, 
and much more. 


System Requirements 
EditingTools is only 40K in size, 
and runs efficiently on IBM PC, 
XT, AT and true compatibles. 
No installation program. All 
editor command keys can be 
changed effortlessly during 
editing. It is not copy protected. 


Incredible Value 
Add EditingTools to your PC 
toolbox for only $35 + $4 s/h. 
Optimized Turbo Pascal source 
code optional. 60 day money 
back guarantee. To order, send 
check or money order to: 


Jou Laboratories 
P.O.Box 460969 
Garland, TX '75046 
(214) 495-8862 


Circle no. 355 on reader service card. 
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Listing Four (Listing continued, text begins on page 120. ) 


FOR I = 1 TO NUM.LINES 
PRINT#1, LS (I) 

NEXT I 

CLOSE #1 

RETURN 


End Listing Four 


Listing Five 


Listing 5. CHNG2.BAS the second QuickBASIC version of CHANGE.BAS that is 
translated manually. 


‘ Batch Find/Replace Utility Version 1.0 10/29/86 


‘ IBM. Pc QuickBASIC version 2 

‘ Copyright (c) 1987 Namir Clement Shammas 

DEFINT A-Z 

DIM FILENAMES (20) , STRNGS (30) , REPLACE (30) , REPLACES (30) , L$ (500) 
TRUE =1 

FALSE = 0 


MAX.LINES = 500 * Current maximum number of lines read froma file 
CLS 


CALL CenterText ("BATCH FILE FIND/REPLACE PROGRAM") 
PRINT 
CALL CenterText ("VERSION 1.0") 
PRINT : PRINT 
CALL GetFile (FILENAMES (}), NUM.FILES) ' Get filenames 
CALL GetSt rings (STRNGS () , REPLACES (), REPLACE (),NUM.STRINGS) ' Get strings 
FOR IFILE = 1 TO NUM.FILES 
' Read text lines from file 
CALL ReadLines(L$(),FILENAMES(),IFILE, NUM.LINES) 
FOR I = 1 TO NUM.STRINGS 
FOUND FALSE 
FOR J 1 TO NUM.LINES 
PTR = INSTR(LS(J),STRNGS (I) ) 
WHILE PTR > O 
IF (FOUND = FALSE) THEN 
FOUND = TRUE 
LPRINT “KEYWORD : 
END IF 
BS: = STRS{J) + ">" 
OFFSET = LEN (BS) 
LPRINT J;":"7L5 (J) 
LPRINT SPC (PTRtOFFSET) ;"*" 
IF (REPLACE(I) = TRUE) THEN 
FIRSTS = ."" 
IF PTR > 1 THEN FIRSTS = MIDS (L$(J),1, (PTR-1) ) 
LASTS = ity 
IF (PTR+LEN (STRNGS (T) ) ) < LEN(L$(J)) THEN 
LASTS = MIDS (L$ (J), (PTR+LEN (STRNGS (I) ))) 
END IF 
L$(J) = FIRSTS + REPLACES (I) + LASTS 
LPRINT "BECOMES" : LPRINT 
TPRINT Tees" she tl} 8 LPRINT : LPRINT 
END IF 
PTR = INSTR (PTR+1, L$ (J), STRNGS (I) ) 
WEND 
NEXT J 
NEXT I 
'‘ Write file back 
CALL WriteLines (L$ () , FILENAMES () , REPLACE () , IFILE, NUM. LINES) 
LPRINT : LPRINT 
NEXT IFILE 
LPRINT CHRS$(140) ‘ FORM FEED 


"; STRNGS (1) 


SUB GetFile (FILENAMES (1), NUM.FILES) STATIC 
' Subroutine to input filenames from the keyboard 
NUM.FILES = 0 
WHILE NUM.FILES <= 0 
INPUT “Enter number of files ":NUM.FILES 
PRINT 
WEND 
FOR I = 1 TO NUM.FILES 
FILENAMES (I) = “" 
WHILE FILENAMES (I) = "“" 
PRINT “Enter filename # ";I;" "7 
INPUT FILENAMES (I) : PRINT 
WEND 
NEXT I 
END SUB 
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SUB Get Strings (STRNG$ (1) , REPLACES (1) , REPLACE (1) , NUM. STRINGS) STATIC 
" Subroutines to inpur search/replace strings 
NUM.STRINGS = 0 
WHILE NUM.STRINGS <= 0 
INPUT “Enter number of search/replace strings ";NUM.STRINGS 
PRINT 
WEND 
FOR I = 1 TO NUM.STRINGS 
REPLACES(I) = "" 
PRINT : PRINT "For string # ";I 
INPUT * Enter string "; STRNGS (I) 
INPUT “ R)eplace F)ind ";AS$s 
IF (INSTR ("Rr", MIDS (A$, 1,1) ) = 0) THEN 


REPLACE(I) = FALSE 


ELSE 
REPLACE (I) = TRUE 
INPUT " Enter replacement string ";REPLACES(I) 
END IF 
PRINT 
NEXT I 


END SUB 


SUB ReadLines (L$ (1) ,FILENAMES (1), INDEX,NUM.LINES) STATIC 
' Subroutines to read text lines 
LPRINT “PROCESSING FILE : "; FILENAMES (INDEX) 
OPEN "I",1, FILENAMES (INDEX) 
NUM. LINES = 0 
WHILE (NOT EOF(1)) ‘ AND (NUM.LINES <= MAX. LINES) 
NUM. LINES = NUM.LINES + 1 
LINE INPUT#1, LS (NUM. LINES) 
WEND 
CLOSE #1 
END SUB 


SUB CenterText (T$) STATIC 

‘ Subroutine to center a message 
PRINT SPC(40 - LEN(TS) /2);TS 

END SUB 


SUB WriteLines(L$(1), FILENAMES (1) , INDEX,NUM.LINES) STATIC 
* Subroutine to write the updated file 

OPEN "O",1, FILENAMES (INDEX) 

FOR I = 1 TO NUM.LINES 

PRINT#1, LS (I) 

NEXT I 

CLOSE#1 
END SUB 


End Listings 


Dr. Dobb’s Journal, March 1987 


ATTENTION 
DATABASE 
DEVELOPERS 


lf you have the need for relational 
database management within your 
application programs 


TURBO-DB’ 


is the programmer's tool you have 
been waiting for! 


TURBO-DB offers a number of features 
for the software developer: 


SMALL AND LARGE 
DATABASE MANAGEMENT 


AUNIQUE 
PROGRAMMATIC 
INTERFACE FOR 
CUSTOM APPLICATION 
DEVELOPMENT 


IN ASM, ‘C’, FORTRAN AND PASCAL 


QUEL-TYPE 
QUERY LANGUAGE 


INTEGRATED DATABASE 
ADMINISTRATION 


DATABASE RECOVERY 
AND BACKUP UTILITIES 


WRITTEN ENTIRELY IN ’C’- 
UNIX COMPATIBLE 


For the IBM PC/XT/AT 
or compatible computers 
(256K RAM, DOS 2.0+, diskette or hard disk) 


Software Developer Package | 
Interactive Query Writer 
Database Administration 
Database Backup and 
Recovery Utilities 
User Tutorial 
User Reference Manual 


$145 


Software Developer Package II 
e Software Developer Package | 
e ‘C’ Object Code Interface 
e Programming Interface 
Reference Manual 


$395 


UPLAND SOFTWARE CO. 


P.O. BOX 3136 © REDWOOD CITY, CA 94064 
(415) 876-7636 


MasterCard, Visa, Checks Accepted 
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COLUMNS 


| CHEST 


Nr: A C Implementation of Nroii, Part 2 


his month I'll continue discuss- 

ing the nr text formatter that I 
introduced last month. I'll present 
the first part of a complete users’ 
guide and continue it in the next col- 
umn. The source-code disk contains a 
complete implementation of the 
ms macro package. (See the end of 
this column for information about 
the source code disk.) Nr is as much a 
programming language as it is a text 
formatter, and a look at a complex 
macro package such as ms can show 
you how to program in that 
language. 

I should preface this article by say- 
ing that I’ve implemented the Unix 
nroff as closely as I can. Over the 
course of several years, I’ve learned 
more things about nroff than I actual- 
ly care to know. I do not claim, how- 
ever, to know everything there is to 
know about the real nroff. As a con- 
sequence, there may be a few differ- 
ences between nr and the real nroff, 
introduced because I can’t figure out 
how the real nroff works. Sorry. I 
should also say that, though I’ve used 
the program presented here for sev- 
eral years now and don't know about 
any bugs, I’m a creature of habit and 
probably haven't exercised those 
parts of the program that have bugs 
in them. In particular, when you get 
into the realm of fancy laser printers 
and proportional spacing, nr may not 
work without your having to modify 
the program somewhat. It works fine 
on the various printers I own (HP 
Thinkjet, Brother HR-15, and HP-La- 
serjet+), but these are the only print- 


by Allen Holub 


ers on which the program has been 
used. I’ve added the proportional- 
spacing features very recently, so I 
don’t have as much confidence in 
that part of the program asI doin the 
older parts. 

As I write this article, I’m looking at 
the code more closely than I have for 





a while. As a consequence I’m notic- 
ing (and fixing) a few nroff incompa- 
tabilities I hadn't noticed before. Two 
such fixes affect one of the subrou- 
tines I discussed last month—the ex- 
pression parser in parse.c. This 
parser treats the ‘str1 str2° expression 
as if it were using the C strcmp( ) 
function. Nroff, on the other hand, 
evaluates this expression to true if the 
two strings are equal and to false if 
they are not—the opposite of 
strcmp( ). Asecond problem with the 
parser is actually a bug. It shouldn’t 
recognize a quote as white space. To 
modify parse.c to fix these problems, 
replace line 293 of parse.c with: 


rval = !stremp(s1, s2 ); 
and change line 137 to: 
while( isspace(*Str) ) 


Nr Users’ Guide 

It’s almost impossible to describe a 
program as complex as nr in an or- 
derly fashion because there’s no way 
to organize the material to avoid for- 
ward references. Consequently, 


ec don’t print (c)ontrol characters 


—¢ print only o(d)d pages 
—e print only (e)ven pages 
—m<str> 


—n<num=> (n)umber first page <num> 
—0oO<list> 


print (o)nly pages in list </ist> 


you'll probably have to read this 
guide (and its conclusion in my next 
column) twice—once to get a general 
idea of how the program works and 
a second time to fill in the details. 

Nr is an almost complete imple- 
mentation of the Unix nroff text for- 
matter. It incorporates several of 
troff’s functions as well, and it can 
generate output for most printers 
without any modifications to the 
source code. 

Nr is a compiler-like text formatter. 
You create the input text with a nor- 
mal editor and then submit it to nr 
just like you'd submit a program to a 
compiler. Nr formats the input and 
sends the resultant text to standard 
output (so you have to redirect it if 
you don’t want to display it on the 
screen). You invoke nr with: 


nr [—switches] files ...[ >stream ] 


You can list several files—they are 
just concatenated as the program 
runs. The command-line switches 
are optional, and several of them are 
position sensitive. Table 1, below, 
summarizes supported switches. 
They are: 


- - —print a list of legal command-line 
switches. 


—c—map all control characters, if 
present, to visible characters before 
they're printed. This option is partic- 


append (mjacro: /lib/tmac/<str>.mac 


=p suppress bold, underline, overstrike 


ee | Pe 


—t<str> 


set number (reg: —rx<num> —rMxx<num> 
—s<num=> (s)top every <num=> pages 
set s(t)ring: —tk<str> —t(xx<str> 


-Vv (vjerbose mode, echo input commands 





Table 1: Summary of command-line arguments 
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et LSS 


EVERYTHING 


THE C PROGRAMMER 
NEEDS 


Eco-C88 C Compiler: 


A full, professional C compiler with many ANSI enhancements at an 
unbelievably low price. 


* Prototyping, enum, void data types, plus structure passing & 
assignment * All operators and data types * Over 200 library 
functions * cc and mini-make for easy use * 8087 support * ASM or 
OBJ output * Lint-like tiered error messages * Fast code * CED 
editor (edit-compile-link from within the editor) * Expanded user’s 
manual * Not copy protected * All for only $59.95! 


Eco-C88 Flexi-Graph Graphics Package 


Everything you need to write dramatic graphics effects into your 
Eco-C88 C programs. 


* EGA, CGA, and Z100 support * Over 100 graphics functions (many 
are PLOT-10 compatible) * Most assembler support routines are 
outside small model code-data * Write thru BIOS (for compatibility) 
or to memory (for speed) * Graphics function help from CED editor 
* World, pixel or turtle color graphics modes * 47 standard fill 
patterns, 17 line dashing patterns, Hershey fonts, plus user 
defineable fill, dash, and fonts * Supports view areas, rotateable 
fonts, clipping, arbitrary fill areas, extensive error checking, 
examples, and user’s manual * Only $39.95 


Eco-C88 Windowing Library 


Use this library to build pop-up windows, help windows, selection 
menus, special effects—anywhere you need an attention getter. 


* CGA and EGA support * Control any program that goes through 
the BIOS * Use up to 255 windows * No special window commands 
— use plain old printf(_) to write to a window * Resize and move 
windows * Custom window titles and borders * Can be used with 
ANSI device driver * Most window code-data are outside small model 
* User’s manual and examples for only $29.95 


Ecosoft Librarian 


Combine your modules, functions, and subroutines into your own 
library for easy link commands. Compatible with any standard 
MSDOS OBJ files * Add, delete, and extract from a library * Get 
table of contents or index of a library * Combine libraries, control 
library page size, use switches for combinations, process complex 
library requests, use wildcards, and do library directives from 
command files * Complete with user’s manual for only $29.95 


Developer’s Library 


Contains the source code for for all library functions, including the 
transcedentals, memfiles, and those written in assembler. $25.00 
with order, $50.00 if ordered later. (Sold only to Eco-C88 owners.) 


2 Ecosoft Inc. eS 
6413 N. College Ave. cis 
Indianapolis, IN 46220 eS 


f—, 





Eco-C88 C compiler requires an IBM PC, XT, or AT (or compatible) with 
256K of memory, 2 disk drives and MSDOS 2.1 or later. 

















C Programming Guide 
(Purdum, Que Corp.) 


The second edition of the B. Dalton bestseller. 
Perfect for those just getting started with C. 
Includes discussion of many X3J11 ANSI Standards 
Committee recommendations. Many error messages 
from Eco-C88 give page references to this book. 
Price is $20.00 plus $2.00 shipping. 


C Self-Study Guide 
(Purdum, Que Corp.) 


Using a question-answer approach, this book is 
filled with shortcuts, tips, techniques, and traps to 
avoid when learning C. Price is $17.00 plus $2.00 
for shipping. 


C Programmer’s Library 
(Purdum, Leslie, Stegemoller, Que Corp.) 


Another B. Dalton bestseller. An intermediate C 
text for the programmer that wants to get the most 
from the language. Contains source code for many 
functions including an ISAM file handler. Price is 
$22.00 plus $2.00 for shipping. 


To order, call or write: 


1-800-952-0472 1-317-255-6476 


(tech. info.) 


(for orders) 





ORDER FORM CLIP & MAIL TO: 
Ecosoft Inc., 6413 N. College Ave., Indianapolis, IN 46220 


OO Eco-C88 C Compiler $59.95 

O Eco-C88 Flexi-Graph Graphics Package $39.95 

O Eco-C88 Windowing Library $29.95 

0 Ecosoft Librarian $29.95 

0 Developer’s Library $25.00 ($50.00 if not with order) 
O C Programming Guide $20.00 

O C Self-Study Guide $17.00 

O C Programmer’s Library $22.00 








SHIPPING $4.00 

TOTAL (IND. RES. ADD 5% TAX) 
PAYMENT: OC VISA O MC O AE CO CHECK 
CARD# EXPIR. DATE 
NAME 
ADDRESS 
CITY STATE 
WP 2 > PHONE 
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CoCHEST 
(continued from page 96) 


ularly useful for debugging escape 
sequences that are sent directly to the 
printer. Nonprinting characters are 
output as <DD>, where DD is two 
hex digits. 


—d—print only odd-numbered 
pages. This option is useful if you're 
sending output to a laser printer and 
want two-sided output. This com- 
mand interacts with the —o and —n 
switches described later (for example 
nr —d —o010—20 file.nr >prn prints 
only odd-numbered pages in the 
range 11 to 19. 


—e—print only even-numbered 
pages. 


—m~<name>—cause the contents of 
a macro file to be processed before 
any of the normal input files are pro- 
cessed. You can think of —m as short 
for /lib/tmac/name.mac. For exam- 
ple, the switch —ms causes nr to pro- 
cess the file /lib/tmac/s.mac. If you 
specify several —m options, the files 
are processed in order from left to 
right, and all macro files are pro- 
cessed before any normal files are 
processed. 


—n<num>—cause the first page to 
be numbered N—for example, —n10 
Causes page numbering to start at 10. 


—o<list>— print only those pages in 
<list>. The list can take several 
forms. The simplest is —01,3,5, which 
prints only pages 1, 3, and 5. You can 
specify ranges of pages, as in 
—o05—10, which prints pages 5 to 10 
inclusive. The notation —o—10 
means print all pages from the begin- 
ning of the document up to and in- 
cluding page 10. Similarly, —o10— 
means print from page 10 to the end 
of the document. You can combine 
all these forms, as in —o—10,12, 
15—20,30—, which prints pages 1 to 
10, page 12, pages 15 to 20, and from 
page 30 to the end of the document. 
Note that the —n option interacts 
with the —o and —e options—that is, 
if you say —n5, then saying —o2 
won't work because there is no page 
2. 


— p—generate plain output (suppress 
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all boldface, and 


overstrike). 


underline, 


—r<str>—initialize a number regis- 
ter (described later). This option can 
have two forms: 


~—Fe123 
— Mxx123 


The first form initializes the single- 
character number register x to 123; 
the second initializes the two-charac- 
ter register xx. These numbers can be 
used in the document with \nx and 
\n(xx (see later). 


—s<num> -—stop output every 
num/ pages.This option is usetul if 
you have to hand-feed paper into 
your printer one page at a time (use 
—s1 for this purpose). 


—t<str>—initialize a text string 
macro (works just like —n does). The 
text is available inside the document 
using the \*« and \*(xx mechanisms, 
described later. Note that you have to 
quote the string to get blanks into the 
text: 


nr ”—txtext with spaces” file 


—v (verbose mode)—cause com- 
mands to be echoed to standard out- 
put just before they’re executed but 
after all the escape sequences (de- 
scribed later) have been expanded. 
Commands that are part of macro 
definitions aren’t echoed. The name 
of the input source (a file or macro 
name) is printed as well. This is a de- 
bugging option. 


Input to Nr 

The command structure and com- 
mand names nr uses are almost iden- 
tical to those that nroff uses. There 
are a few minor differences that I 
will discuss later. Because I didn’t 
want to create a binary intermediate 
file, such as the one used by ditroff 
(device-independent troff), I’ve add- 
ed several nonstandard commands to 
support configuration to various 
printers. Nonstandard commands 
are identified as such in the follow- 
ing command descriptions. 

One of my original intentions in 
writing nr was to be able to write 
documents at home and then upload 
these to the nroff system at school for 


final typesetting. Consequently, I 
tried to make the move as painless as 
possible. At the macro level, nr is 
identical to nroff. I've written an im- 
plementation of the ms macro pack- 
age that’s in use at UC Berkeley. If 
your documents are formatted with 
ms, as are the overwhelming major- 
ity of nroff and troff documents, 
porting to a real Unix system is trivi- 
al. The few minor differences be- 
tween the nr internal commands and 
the real nroff are well documented 
and easily translated. I just recently 
transferred a complete book from nr 
to the VAX at school and for the most 
part experienced no difficulties. The 
main problem I had was with trans- 
lating macros not in the ms package 
to the real nroff/troff. Nr is better 
documented than nroff itself. As a 
consequence, writing real nroff mac- 
ros can be difficult. Once you have 
created the equivalent macros, trans- 
lation is no problem, of course. The 
other problems I had were typeset- 
ter-related. A typesetter is not a daisy- 
wheel printer, and the differences 
took a few days to figure out. 

Nr takes as input a normal ASCII 
text file that contains intermingled 
text and formatting commands. Note 
that nr won't automatically map AS- 
CII to a funny daisywheel—you have 
to do it yourself. Nr, unlike troff, un- 
derstands the entire ASCII character 
set. Some of the characters (such as \) 
have a special meaning to nr, howev- 
er, and have to be entered in a special 
way, discussed later. There’s also a 
provision for printing special non-As- 
Cll characters. 

Nr commands take two forms: dot 
commands and escape sequences. 
Dot commands all start with a dot in 
the leftmost column. The dot is fol- 
lowed by a one- or two-letter com- 
mand name. All of the built-in com- 
mands have two-letter names. You 
can create new commands using nr’s 
macro capability, however, and 
these can have either one- or two-let- 
ter names. There can be any amount 
of white space (spaces or tabs) be- 
tween the dot and the first character 
of the name, which is useful inside a 
macro if you want to indent the body 
of an .if statement. Because .if and .ie 
(if... else)statements nest, indenting 
can help a great deal. 

Escape sequences, the other sort of 
command, are text strings that are 
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embedded in the text itself. They all 
begin with a backslash (\) but are oth- 
erwise dissimilar. You use escape se- 
quences for such tasks as changing 
fonts on the fly or expanding certain 
macros. The \f'] escape sequence, for 
example, changes the current font to 
italics and \f P puts it back to the pre- 
vious state. You can put a word into 
italics with \f word \f P. 


Expressions 
All the nr commands that take nu- 
meric arguments can also take ex- 
pressions (which are computed as the 
document is processed) instead of ab- 
solute numbers. Several operators are 
available, shown in Table 2, right. All 
these operators work just like their C 
equivalents do except that expression 
evaluation dosn't terminate when the 
truth or falsity of an && or !! expres- 
sion is determined. Note that this is a 
more powerful expression syntax 
than is supported by the real nroff. 
Be careful of strings that follow ex- 
pressions on the command line. Be- 
cause white space is legal in an ex- 
pression, the analyzer just scans the 
input line until it finds an illegal char- 
acter. If you say something such as: 


.vd <up> 1 <down> 


the < that precedes down will be ab- 
sorbed by the expression parser be- 
cause < is a legal character in an ex- 
pression. The problem can be fixed by 
putting quote marks around the 
strings: 


.vd"<up>” 1”<down>” 


Most commands treat leading plus 
or minus signs specially. These signs 
cause the current value associated 
with a command to be incremented 
or decremented by the indicated 


amount. 
For example: 


in 10 \” Set indent level to 10 
in +5 \’ Increase it to 15 
in —5 \” Decrease it back to 10 


Precedence 
Level 


Operator | _ 


—~——r MO NONMNNMNWWOA LF 





have higher precedence. 


Table 2: Operators. All operators associate left to right. Higher numbers 


The \” is a comment; all text that fol- 
lows it is ignored. 

The real nroff supports several 
unit-of-measurement operators that 
can be appended onto numbers 
(inches, picas, points, and so forth). Nr 
does not support these. 


Dot Commands 

Nr supports a rich set of dot com- 
mands (90 or so). As I mentioned earli- 
er, all commands that take numeric 
arguments can be passed expressions 


Meaning 


used for grouping 

unary minus (as in —5) 

logical NOT 

compares two strings—evaluates to 
true (1) if they are equal, to false (0) 
if they are not : 
multiply 

divide 

modulus (MOD) 

addition 

subtraction 

less than 

less than or equal 

greater than 

greater than or equal 

equal 

notequal 

logical AND 

logicalOR | 








Here’s why you should choose Periscope as your debugger... 


You’ll get your programs running fast. “It works 
great! A problem we had for three weeks was 
solved in three hours,” writes Wade Clark of 
MPPi, Ltd. 


You’ll make your programs solid. David Nanian 
says, “I can’t live without it!! BRIEF, a text 
editor my company wrote, would not be as stable 
as it is today without Periscope.” 


You’ll protect your investment. We won’t forget 
you after the sale. You'll get regular software 
updates, including a FREE first update and 
notice of later updates. You'll get technical help 
from Periscope’s author. And you'll be able to 
upgrade to more powerful models of Periscope if 
you need to. One Periscope user writes, “ 





your support has won over even the heart of this 
hardened programmer!” 


You deserve the best. Thousands of programmers 
rely on the only debugger that PC Tech Journal 
has ever selected as Product of the Month 
(1/86). You owe it to yourself to find out why, 
first hand. 


You can try it at no risk. You get an uncondi- 
tional 30-Day, Money-Back Guarantee, so you 
can’t lose. 


Start saving time and money now — order toll- 
free, 800/722-7006. Use MasterCard, Visa, 
COD, or a qualified company purchase order. As 
one user puts it, Periscope is “one of the rare 
products, worth every penny!” 


New Version 3 is better than ever! 


Periscope I, software, manual, 
protected memory board and 


breakout switch: 0.2000.. s..2502. $345 
Periscope II, software, manual, and 

breakout switch ...................8. $175 
Periscope II-X, 

software and manual ............... $145 


Add shipping - $3 US; $8 Canada; $24 elsewhere. 
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C CHEST 
(continued from page 99) 


instead of explicit numbers. The es- 
Cape sequences on the line are ex- 
panded before the expression is eval- 
uated, so you can use number 
registers and the like in expressions 
(I'll discuss these in depth in a mo- 
ment). If a command argument con- 
tains any space characters, you must 
enclose it in double quotes, asin the 
following: 


.ds x “several words in a string” 


Unlike the various Unix shells, the 
quotes are just for grouping—they do 
not protect any internal escape se- 
quences (introduced with a \) from 
expansion. For example: 


So es FBS) *  -Ariy" 


is treated identically to: 
sp (\nx + 15)*\ny 


but is a little easier to read. 

All supported dot commands are 
discussed later. The commands are 
grouped functionally. Don’t be dis- 
mayed by their number and com- 
plexity. As I mentioned earlier, nr is 
really a programming language that 
generates formatted text as output 
rather than a compiled program. Con- 
sequently, you hardly ever have to 
use the primitive commands them- 
selves; rather, you use subroutines 
(macros) that are written in terms of 
the primitive commands. The advan- 
tage of asystem such as this is that you 
can redefine the way your text for- 
matter works to suit your conve- 
nience. 

In all the following descriptions, 
brackets delimit an optional argu- 
ment (/arg/); in nonliteral arguments, 
on is a string that turns something on 
and N is a number; and angle brack- 
ets are used when more than one 
word is needed to describe an argu- 
ment (<left str>). 


Configuration 

Nr has several commands that config- 
ure it to work with specific printers. 
Typically these are concentrated in a 
macro file that is read using the —m 
command-line switch—for example, 
the switch —mlaser tells nr to read 
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the file /lib/tmac/laser.mac before 
processing other files. The ms macro 
package I use is configured so that text 
is displayed properly on the screen, 
provided that ANSISYS is installed— 
that is, boldface is shown in high in- 
tensity, italic is underlined, and so 
forth. 
The configuration commands are: 


.bd on off—takes as its argument two 
strings—one to turn boldface on, the 


Nrisa 
compiler-like 
text formatter that 
can generate 
output 
for most printers. 


other to turn it off. The maximum 
length of either string is 80 charac- 
ters. Use \x to send control charac- 
ters. For example: 


.bd \x1ib{1m \x1b[0m 


configures nr for ANSLSYS. It outputs 
ESC[1m (0x1b is an ESC) to enable bold- 
face printing. ESC/Om turns it off 
again. If a .bd command is never 
specified, or if a .bd is executed with 
no arguments, then boldface is done 
by printing every character twice 
with an intervening backspace 
(C<bs>C). This command is a little 
different from the one in nroff. 


.cm [on/—enable nroff-style copy 
mode during macro definitions. If an 
argument is present, nroff copy 
mode is enabled; otherwise, it’s 
turned off. In normal copy mode 
only \” and \<CR> are recognized. 
In nroff mode the following are 
recognized: 


Wi yer Aare AB AN ASCAG \a 


Both modes are discussed in greater 
detail later. 


«hd <left str> N <right str>—de- 
fine horizontal motion. The two 
strings send the printer cursor left or 
right by 1/N spaces. The width of a 
space is taken from the currently ac- 
tive character-width table (it is 1 in 


the default monospaced font) and 
can be changed with a.ss command. 
N determines the minimum resolu- 
tion for the space between charac- 
ters in proportional-spacing mode. 
All the widths in the character-width 
table must be in terms of N as well. 

As an example, if a space character 
occupies 12 units of horizontal reso- 
lution in a specific font, N is 12 and 
the two strings, when sent to the 
printer, move the cursor 1/12 of a 
space width. The character-width ta- 
bles loaded with the .df command 
(discussed later) contain widths that 
will all be in terms of these mini- 
mum, 1/12 space units. For example, 
if the character-width table entry for 
i is 6, the character i occupies 6/12 of 
the space occupied by a space. If the 
entry for A is 14, the character A 
takes up 14/12 (1%) of the space re- 
quired for a space character. The de- 
fault <left string> is a single back- 
space character, the default <right 
string> is a single space character, 
and the default N is 1. 


.id on off—send_the string specified 
in on to the printer to put it into italics 
(underline) mode; off takes it out. The 
maximum length of either string is 80 
characters. Use \x<two hex digits> 
to send a control character. If no ar- 
guments are present or if no .id is 
specified, then underlining is used— 
nr prints an underscore, a backspace, 
and then the character for each 
character. 


.od on off—put. the printer into over- 
strike mode (works like .id does). A 
dash is used instead of an underscore 
in the default situation. 


.ss N—change the width of a space 
in the currently active font to N; the 
default N is 1. 


.vd <up str> N <down str>—de- 
fine vertical motion. The <up str> 
string moves the printer cursor up 1/ 
N lines; the <down str> moves it 
down again. 


Font Control and Character 
Attributes 

Several commands are available to 
change the current font and to load 
new fonts. Nr handles fonts a little 
differently from the way nroff does, 
primarily because most printers han- 
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dle the various highlight modes 
somewhat differently from the way 
that phototypesetters do. All fonts 
have single-letter names. Five names 
are reserved by nr: 


R—Roman, the default font 
I— italics (or underline) 
B—boldface 

O— overstrike 

P—previous 


The R font is the default font. Ini- 
tially it is a monospaced (nonpropor- 
tional) font, but you can replace it 
with a proportional font by using a 
.df command. You can change the 
current font with either the .ft <font 
name> command or with an embed- 
ded \f<font name> escape se- 
quence. For example, you can put 
the word into italics with \flita- 
lics\fP. Here, \f1 switches into the 
italics font (by sending out the string 
defined with the .id command, de- 
scribed earlier), prints the word ital- 
ics, and then switches back to the 
previously active font with \fP. 

The I (italics) attribute is a little 
weird in that it’s used for both italics 
and underlining. Typically you can 
have only one or the other in a docu- 
ment, not both. If you want to have 
both, you should use nr’s italics and 
then use the line-drawing characters 
to underline a word when necessary. 
Note that the real nroff doesn’t sup- 
port an O default font. Nr is also dif- 
ferent from nroff in that nr treats the 
I, B, and O fonts as attributes rather 
than as actual fonts. That is, when 
you change to font J, the current font 
stays active but nr sends whatever 
string was defined with the .id com- 
mand out to the printer. This way 
you can have a bold-italic character 
by using \f?\fBword\fP. Changing to 
any font other than J, B, or O disables 
all three attributes. 

Font commands are: 


.bo [+—JN—put all words on the 
next N input lines into boldface. The 
default N (used when N is missing) is 
1. Note that this is not an nroff com- 
mand, though it can be simulated 
with a macro in nroff. If you want to 
put an unspecified amount of text 
into boldface, use: 


.bo 1000 
<a bunch of text goes here> 
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.bo 0 


.ul [VN] —underline (or put into italics) 
words only on the next N input lines. 
Only alphanumeric characters are 
underlined; punctuation, spaces, and 
so on are not. 


.cu [+—JN—underline (or italicize) 
words continuously on the next N in- 
put lines. All characters are under- 
lined, even spaces and punctuation. 
For example, This is continuous un- 
derlining and this is not. 


.os [N] —overstrike the next N input 
lines (works like .ul does). If N is miss- 
ing, 1 is used. 


.df F <start> <end> <cwidths>— 
redefine the R font (but not the J, O, or 
P fonts) or add a new font. If no argu- 
ments are present, a list of existing 
fonts is printed to standard output 
along with the character-width 
tables. 

F is a font name (one character), 
<start> is the name of a macro to 
invoke when the font is activated in 
the normal way (with a \fF or .ft F 


-command), <end> is a macro to in- 


voke when you switch out of the 
font, and <cwidths> is the name of a 
file that holds the character-width ta- 
ble associated with the font. This file 
must be composed of 256 numbers, 
with the numbers listed in ASCII or- 
der—that is, the first number is the 
character corresponding to an ASCII 
‘\O’, the second number is a CtrI-B, 
the 32nd number is the width of the 
space character, and so on. Numbers 
must be separated from each other 
by either white space or new lines. 


Table 3: A font-width file 


A sample font-width table is shown 
in Table 3, below. The Os on the first 
line correspond to the characters 
having numeric values in the range 0 
to 31 (all the control characters). A 
space (ASCII 32) is 12 units wide, an 
exclamation point (ASCII 33) uses 6 
units, a double-quote mark (ASCII 34) 
uses 8 units, and so on. If numbers are 
missing from the end of the list, 1 is 
assumed. A unit here must also be de- 
fined in the .hd command described 
earlier. If no font-width file is speci- 
fied to .df, a table is created and all 
entries in it are set to 1. (This is the 
default for a monospaced font.) 


ft F—change to font F at the begin- 
ning of the next input text line. You 
can also embed font changes with a 
\fF escape sequence. Note that, if font 
F doesn’t exist, the error won't be 
flagged until the output routines try 
to process the font change request. 


Text Filling, Adjusting, 

and Centering 

Nr generally fills lines—that is, it col- 
lects words from input (a word is any 
space-delimited collection of charac- 
ters) until it has collected an entire 
output line, and then it outputs all the 
words on a single line. For example: 


This 

is several 

words. 

will be collected and printed as: 


This is several words. 


If hyphenation is enabled, it will 
read one word too many and then try 
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to hyphenate the last one. If nr can 
insert a hyphen to squeeze more 
characters onto the current line, it 
will do so. You can also adjust the text 
in several other ways. The most com- 
mon is to insert white space between 
words in order to get the rightmost 
characters to line up (with the words 
spread as evenly as possible on the 
line). 

You can force a line break (in 
which the contents of the fill buffer 
are printed even if there aren't 
enough words to fill the line) in sever- 
al ways. The .br command always 
causes a break and leaves the cursor 
at the beginning of the next output 
line. In addition, several other com- 
mands—.bp, .br, .ce, .fi, .in, .nf, .sp, 
and .ti—cause breaks as a side effect 
of their operation. If youdon’t wanta 
line to break when one of these is ex- 
ecuted, replace the dot that’s usually 
used to introduce a command with 
the nobreak command character (the 
default is a backquote [ ’ ]). For exam- 


ple, the .sp N command usually 
causes a break and then prints N 
blank lines. The ‘sp N command, 
however, prints the blank lines with- 
out flushing the fill buffer first. You 
can change the default no-break 
character with a .c2 command. 

Commands for controlling filling 
and margins are: 


.ad [C]—turn on margin adjusting. 
Adjustment modes (values of C) are: 
b—adjust both margins. 
n—same as b. 
/—adjust only the left margin, 
leaving a ragged-right edge, asin a 
hand-typed document. 
r—adjust only the right margin, 
leaving a ragged-left edge. God 
knows what this mode is good for, 
but nroff supports it. 
c—center each output line on the 
page. 
If C is missing then the most recently 
active adjustment mode is used. 


.br (break)—print all the words in the 
current fill buffer even if there aren't 
enough words to fill the output line, 





UNIX-like Utilities for Managing 
C Source Code 


No C programmer should be without their 
assistant — C ToolSet. All of the utility programs 
are tailored to support the C language, but you 
can modify them to work with other languages 
too. 

Source code in standard K&R C is included; 
and you are welcome to use it with any compiler 
(UNIX compatible) and operating system you 
choose. 


12 Time Savers 


DIFF - Compares text files on a line-by-line 
basis; use CMP for byte-by-byte. Indispensable 
for showing changes among versions of a 
program under development. 

GREP - Regular exp.. ssion search. Ideal for 
finding a procedural call or a variable definition 
amid a large number of header and source 
files. 

FCHART - Traces the flow of control between 
the large modules of a program. 

PP (C Beautifier) - Formats C program files 
so they are easier to read. 

CUTIL - A general purpose file filter. 


Requires MSDOS and 12K RAM 


The C Programmer's Assistant 


C TOOLSET 





CCREF - Cross references variables used within 
a program. 

CBC (curly brace checker) - checks for pairing of 
curly braces, parens, quotes, and comments. 
Other utilities include DOCMAKE, ASCII, 
NOCOM, and PRNT. 

Source code to every program is included! 


Thorough User Support 
Text and Online 

C ToolSet documentation contains descriptions 
of each program, a listing of program options 
(if any), and a sample run of the program. 

On-line help gives you information on the 
programs and how to run them. Most of the 
programs respond to -? on the command line 
with a list of options. 


Call 800-821-2492 to order C ToolSet 
risk-free for only $95. 


Solution 
ystems ™ 


335-D Washington St., 
Norwell, MA 02061 
(617) 659-1571 





Circle no. 152 on reader service card. 
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then go to the next output line. 


.ce [N] —center the next N input lines 
without filling. Default N is 1. This 
command causes a break. 


.fi—enable line filling. The default is 
filling off, so a .fi command must be 
specified at the top of the input. This 
is usually done automatically by a 
macro file such as ms. This command 
causes a break. 


.na—turn off adjusting. Turn it back 
on with a.ad. 


.nf—disable line filling, flushing the 
buffer first. This command causes a 
break. 


Page Control 
Nr has several commands for page 
control: 


.bp [[+—J] N]—begin page N. If N is 
absent, use the current page number 
plus 1. Note that N is the number of 
the new page, not the current one, so 
a footer on the current page will re- 
flect the old number. If N has a lead- 
ing plus or minus sign, the current 
page number is modified by the indi- 
cated amount. This command causes 
a break. 


-ne N—need N lines. If there aren't 
that many lines on the current page, 
then force a new page. The .ne com- 
mand actually looks at the distance 
from the current position on the out- 
put page to the next output line trap, 
discussed later in the Macros, Strings, 
Diversions, and Traps section. If this 
distance is less than N, nr skips for- 
ward to the trap. The assumption 
here is that the trap will be an end-of- 


page trap. 
.pl[+—JN—set page length to N lines. 


.po [+—JN—set page offset to N 
spaces. The page offset is a specified 
number of space characters that are 
printed to the left of every output 
line—that is, .po defines the width of 
the left margin. 


Changing Special Characters 
Certain characters are special to nr. 


These are: 


(command character)—introduces 
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C Programmers! 
High-Speed Database tames 
complex C applications 


“db_ VISTA™ lets you easily build complex databases with many interconnected record types. ..”’ 
Dave Schmitt, President, Lattice, Inc. 


rl igh-Speed data retrieval and access... 

just two benefits of using RAIMA’s network 
model DBMS, db_VISTA. Combine these 
design benefits with those of C—speed, 
portability, efficiency, and you begin to 
understand db__VISTA’s real measure... 
performance. 


Independent Benchmark proves 
High-Speed model 2.76 times faster 


An independent developer bench- 
marked db_VISTA against a leading 
competitor. Eleven key retrieval tests were 
executed with sequentially and randomly 
created key files. 


*Result of 11 Key Retrieval Tests 


db_ VISTA :671.24 seconds 
Leading Competitor :1,856.43 seconds 


db_ VISTA’s high-speed network database 
model lets you precisely define relation- 
ships to minimize redundant data. Only 
those functions necessary for operation are 


Royalty-Free Run-Time 


Whether you’re developing applications 
for a few customers, or for thousands, the 
price of db_ VISTA or db__ QUERY is the 
same. If you are currently paying royalties 
for a competitor’s database, consider 
switching to db__VISTA and say goodbye to 
royalties. 


FREE Technical Support 
For 60 days 
Raima’s software includes free telephone 
support and software updates for 60 days. 
Technical support personnel are available 
to answer questions about our software or 
yours. 


30-Day Money-Back Guarantee 
Try db_ VISTA for 30 days and if not fully 
satisfied, return it for a full refund. 
Order Schedule 


db_VISTA db_ QUERY 


db_ VISTA Version 2.2 


Database Record and File Sizes 
¢ Maximum record length limited only 
by accessible RAM — 
¢ Maximum records per file is 16,777,215 
¢ No limit on number of records or set 
¢ Maximum file size limited only by 
available disk storage 
¢ Maximum of 255 index and data files 


Keys and Sets 

¢ Key length maximum 246 bytes 

¢ No limit on maximum number of key 
fields per record—any or all fields may 
be keys with the option of making 
each key unique or duplicate _ 

¢ No limit on maximum number of 
fields per record, sets per database, or 
sort fields per set 

¢ No limit on maximum number of 
member record types per set 


incorporated into the run time program. _(] Single-user $ 195 $ 195 Operating System 
[| Single-user w/Source $ 495 $ 495 & Compiler Support 
Portable DBMS Applications 0 Multi-user $ 495 $ 495 . Ue Lay 3 MS-DOS, PC-DOS, 
with db_ VISTA 1) Multi-user w/Source $ 990 $ 990 UNIX, XENIX, SCO XENIX, UNOS, 


1) VAX Multi-user $ 990 $ 990 
[] VAX Multi-user w/Source $1980 $1980 


ULTRIX, VMS 


For maximum application portability, © compilers: Lattice, Microsoft 


every line of db__VISTA’s code is written in 


C and complete source code is available. 
db_VISTA operates on most popular 
computers with several operating systems 
supported. So whether you write 
applications for micros, minis, or main- 
frames...db__VISTA is for you. 


How db_ VISTA works... 


Design your database and compile your 
schema file with the database definition 
language processor. Develop application 
programs, making calls to db_VISTA’s C 
functions. Edit and review your database 
using the Interactive Database Access 
utility. Compile and link your C program 
with the db_ VISTA runtime library, and 
your application is ready to run. 


Multi-user and LAN capability 


Information often needs to be shared. 
db_ VISTA has multi-user capability and 
supports simultaneous users in either 
multi-tasking or local area networking 
environments, allowing the same C appli- 
cations to run under UNIX, MS-DOS, and 
VAX VMS. 


db _QUERY™ lets you ask more 
of your database 

db__ QUERY is a linkable, royalty-free, 
SQL-based ad hoc query and report writing 
facility. It provides a user-friendly rela- 
tional view of a network-model database. 
Use it directly or design an interface for the 
inexperienced to generate powerful queries 
and reports. 


RAIMA’ 


CORPORATION 


High-Speed Programming Tools, 
Designed for Portability 


Not Copy Protected 


Call Toll-Free Today! 


Order Line ...... 1-800-327-2462 
Information Line . 1-206-828-4636 





Read what others say... 


“If you are looking for a sophisticated C 
programmer’s database, db_ VISTA is it. In 
either a single or multi-user environment, 
db_ VISTA lets you easily build complex 
databases with many interconnected record 
types. The multi-user implementation 
handles data efficiently with a LAN, and 
Raima’s customer support and documen- 
tation are excellent. Source code availabil- 
ity and a royalty-free run-time is a big plus:’ 

Dave Schmitt, President 
Lattice, Inc. 


‘“‘My team has developed a sophisticated 
PC-based electronic mail application for 
resale to HP customers. db_ VISTA has 
proved to be an all-round high performer 
in terms of fast execution, flexibility and 
portability, and has undoubtedly saved us 

much time and development effort?’ 
John Adelus, Hewlett-Packard Ltd. 
Office Productivity Division 


‘On the whole, I have found db_ VISTA easy 
to use, very fast with a key find, and 
powerful enough for any DBMS use I can 
imagine on a microcomputer:’ 


Michael Wilson, Computer Language 


3055-112th Avenue N.E. 
Bellevue, WA 98004 USA 
(206) 828-4636 Telex: 9103330300 


Circle no. 206 on reader service card. 





DeSmet, Aztec, Computer Innova- 
tions, XENIX and UNIX 


Features | 
¢ Multi-user support allows flexibility to 
run on local area networks - 
_¢ File structure is based on the B-tree | 
_ indexing method and the network 
database model 


| ¢ Run-time size, variable—will runinas 


little as 64K, recommended RAM size 
is 256K : 
¢ Transaction processing assures 
multi-user database consistency 
_¢File locking support provides read 
and write locks on shared databases 
«¢SQL-based db__QUERY is linkable 
| ¢ File transfer utilities included for 
ASCH, dBASE optional 


. Utilities — 
¢ Database definition language processor _ 
¢ Interactive database access utility | 

_¢ Database consistency check utility | 
¢ Database initialization utility : 
¢ Multi-user file locks clear utility 
¢ Key file build utility 
¢ Data field alignment check utility 
¢ Database dictionary print utility 
¢ Key file dump utility 
¢ ASCII file import and export utility © 





*The benchmark procedure was adapted from 
‘“‘Benchmarking Database Systems: A Systematic 
Approach” by Bitton, DeWitt and Turbyfill, 
December 1983. 


Order Toll-Free 
1 (800) 327-2462 
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dot commands. 


(nobreak character)—also intro- 
duces commands, but a line break is 
not done if that command usually 
forces a break. 


\ (escape character)—introduces an 
escape sequence. 


You can change these characters 
with the following: 


.c2 [(C] —change no-break character 
to C. If Cis missing, use a backquote (’). 


.cc [(C/ —change command character 
to C. If C is missing, use a period (.). 


.ec c—change escape character to C. 
If C is missing, use a backslash (\). 


.eo—disable the escape mechanism 
entirely (change the escape character 
to nothing). You can restore it again 
with a .ec command. 


Spacing, Line Length, 

and Indenting 

You can use the commands listed in 
this section to change line spacing, the 
current indent level, and so forth. If 
you use a leading plus or minus sign in 
a numeric argument, the current val- 
ue is modified by the indicated 
amount; otherwise, the current value 
is changed to the indicated value. 


.in[+—J]—change the indent level to 
N. This indent is in addition to the left 
margin, which is set up with the .po 
command, described earlier. If you 
use both .po and.in, then the left mar- 
gin is the sum of the values given to 
the two commands. Generally the 
page offset remains constant 
throughout a document, and the in- 
dent is changed with .in. This com- 
mand causes a break. 


ll [+ —JN—change line length to N 
spaces. The line length determines 
how many words are collected when 
line filling is enabled. 


ls [+ — JN—change line spacing to N 
lines; 1 is single spacing, 2 is double 
spacing, and so on. 


.ns—inhibit the printing of blank 
lines (no-space mode)—that is, no 
blank lines will be printed until some 
text is encountered, a .bp N is execut- 
ed (the N is required), or a .rs is exe- 
cuted. This command is useful in the 
top-of-page macro. 


.rs—restore blank line printing 
when it has been turned off with a 
previous .ns command. 


.sp [N]—space down N lines (print N 
blank lines). N can be negative if your 
printer supports reverse line feeds 
and a previous .vd command was exe- 
cuted. This command causes a break. 
Note that a blank input line is treated 
identically to a .sp 1 (it forces a break 
and prints a blank line under the 
flushed text). 


.ti N—set the temporary indent.to N 
spaces—that is, only the next output 
line will be indented by the indicated 
amount. This command is useful for 
the first line of a paragraph. The in- 
dent level for this line will be the sum 
of the indents specified in the .po and 
.ti commands—that is, the .in com- 
mand isn’t used in the calculation. To 
indent relative to the current indent 
level, use a leading plus or minus sign. 
For example, .ti +5 causes the next 
line to be indented five spaces further 
than the current indent level, as speci- 
fied with previous .in or .po com- 
mands. The .ti command causes a 
break. 


Macros, Strings, Diversions, 

and Traps 

Macros are the heart of nr. Without 
them the word processor would be 
so difficult to use that it wouldn't be 
worth the trouble. Macros are collec- 
tions of text. When you define a mac- 
ro, the text is saved by nr, and when 
you expand a macro, the text is used 
for input. The mechanism is identical 
to the #define mechanism in C. A 
macro name can be any length, 
though for nroff compatibility I'd 
suggest limiting yourself to one- or 
two-character names. Macros used in 
traps (discussed shortly) must have 
one- or two-character names, howev- 
er. Macro names are case sensitive. 
You cannot define a macro that has 
the same name as a built-in dot com- 
mand (if you do, the macro will just 
be ignored). 


A macro is defined with a .de 
<name> command and is expanded 
as if it were a dot command whenev- 
er you precede its name with a dot in 
the first column. A macro can take up 
to nine arguments (accessible within 
the macro using \$1, \$2, and so forth). 
For example a macro defined with: 


.de xx 

arg 1 <\$1> 
arg 2 <\$2> 
arg 3 <\$3> 


is invoked with: 
.xx "this is one argument” doo wha 
and will print: 


arg 1 <this is one argument> 
arg 2 <doo> 
arg 3 <wha> 


Macros can also call other macros 
(though recursion is not permitted). 
In practice they are used in the same 
way as subroutines are. They let you 
take the nr primitives described here 
and do something useful with them. 

There are two flavors of macros: 
true macros and strings. A true mac- 
ro is intended to hold a collection of 
commands and text; a string is in- 
tended to hold text that is expanded 
into a line. In practice, the only dif- 
ference is that the last line in a macro 
is terminated with a carriage return 
whereas the last line of a string is not. 
Strings are defined with a .ds or .as 
command. They are expanded using 
the \*x or \*(xx escape sequences. 
The first syntax is for one-character 
names, and the second is for two- 
character names. Strings may con- 
tain escape sequences. Note that they 
are defined in normal mode, howev- 
er (not in copy mode as the real nroff 
does it). This means that you need to 
use double backslashes to get an es- 
cape sequence into a string. For ex- 
ample, if you want to define a string 
called 4d that prints the word define 
in boldface, you could use: 


.ds #d \\fB#define\\fP 
The string could be used later by em- 
bedding a \*(4d into the text where 


you wanted the word to appear. 
A diversion is a macro that’s used to 
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delay printing temporarily. This way 
you can collect footnotes or a table of 
contents in a diversion and then print 
the diversion out at the end of the doc- 
ument. The .di xx command causes 
output to be sent to the macro called 
xx rather than to the output stream. A 
.di without arguments will stop the 
redirection and restore the previous 
output stream. Diversion nesting is 
permitted—you can redirect to a di- 
version from within a diversion. 
Macros and diversions are both 
created in copy mode, a crippled in- 
put mode in which only two escape 
sequences are recognized (\” and 


\<CR>). Copy mode is described in 


greater depth later. Nr supports two 
copy modes—the one just described 
and an nroff-compatible copy mode 
that is a little less restrictive. Small 
macros are stored internally, in RAM. 
If the macro gets too large (greater 
than 256 characters), it is stored on 
disk, however. The file names all 
take the form xxxx.mac, where xxxx 
is four hex digits. The string defined 
in the TMP environment (created by 
COMMAND.COM with a set command 
and by the shell with a setenv com- 
mand) is appended to the front of the 
file name, so you can use something 
such as: 


set TMP d:/tmp/ 


to put macro files onto a RAM disk. 
The trailing / is necessary here. Mac- 
ro files are all deleted when nr 
terminates. 

One of the more useful features of 
nr is a trap. A trap is way to tell nr to 
expand a macro automatically when 
a specified event occurs. For exam- 
ple, you can set a trap to expand a 
macro at the top or bottom of every 
page. You can spring a trap after a 
specified number of input lines have 
been read or after a specified num- 
ber of lines have been put into a di- 
version. There’s also a special trap 
that’s sprung once, after the entire 
document has been printed. 


.de name [xx] —define a macro and 
give it the indicated name. All lines 
between the .de command and the 
first line that begins with . . (or with 
.Xx, Where xx is the second argument 
to .de) are added to the macro. If a 
macro with the indicated name ex- 
ists, it is destroyed. If both arguments 
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are missing, all currently defined 
macros are printed (like .pm in real 
nroff does, except the contents of the 
macro are printed, too). 


.am name [xx] —append text to an ex- 
isting macro. It works like .de does 
but doesn’t overwrite the existing 
macro. 


.ds name text—define a string called 
name, and put the indicated text into 
it. If the string already exists, it is 
deleted. 


.aS name—append text to the end of 
an existing string. It works like .ds 
does except that it.doesn’t overwrite 
the existing string. 


.di [namej/—divert output to the 
named macro. The diversion is termi- 
nated by a .di or .da command that 
has no argument. Diversions can be 
nested. Normal text processing oc- 
curs in a diversion except that the 
page offset isn’t done. If a macro hav- 
ing the indicated name already ex- 
ists, it is destroyed. 


.da [name] —divert text to the named 
macro, appending to its end rather 
than overwriting it. Stop appending 
when a .da or .di without an argu- 
ment is encountered. 


.rm name—remove the named mac- 
ro or string. If the macro is on the 
disk, the file is deleted. 


.em name—use the named macro as 
the end macro. This macro will be ex- 
ecuted once, after all output has been 
processed. You can’t give arguments 
to the end macro. 


.wh N [name]/—set an output line 
trap. The named macro is executed 
automatically, immediately after 
printing line N on every page. If N is 
0, the trap is sprung at the top of a 
page (above line 1). If the name is ab- 
sent, the trap at line N is removed. If 
N is negative, then the trap is set rela- 
tive to the bottom of the page. (The 
location is determined by looking at 
the page length [as set with .p/] that 
was in effect when the .wh was exe- 
cuted.) The macro replaces any pre- 
viously installed macro for that trap 
position; macros do not shadow one 
another as in the real nroff. 


.ch name [[+—JN ]—change output 
line trap position for the named mac- 
ro to line N. Any existing trap at that 
position is destroyed (nroff will shad- 
ow the earlier trap, not destroy it). If 
N is absent, the trap is removed. 


.dt [+—JN name—set a diversion 
trap. The named macro is executed 
after N lines have been written into 
the current diversion. Only one di- 
version trap may be active. 


it [+—JN name—set an input line 
trap. Execute the named macro after 
N lines of input have been read. Only 
one input line trap may be active. 
A .it destroys a previous trap if one 
exists. 


Environments 
In a real programming language you 
can copy things into local variables 
when you need to save them. Nr, 
however, only supports global vari- | 
ables, and this can present a problem. 
A solution of sorts is the environment 
mechanism. An environment is a 
stack. When you save an environ- 
ment, various parameters that con- 
trol how nr works are pushed onto 
the stack. You can then change those 
parameters at will. The old environ- 
ment can be be popped from the 
stack at a later date, overwriting any 
changes that were made after the 
previous push. The saved parame- 
ters are listed in Table 4, page 108. 
The .ev [N/ command pushes vari- 
ous commonly used variables onto an 
environment stack. Nroff supports 
several environments, and nr sup- 
ports only one. If an argument is 
present, the current environment is 
pushed. If no argument is present, a 
previously saved environment is 
popped from the stack. The stack can 
hold up to five environments. An er- 
ror message is printed if you try to. 
push more than five. 


Number Registers 

Number registers are nr’s global vari- 
ables. They are used to hold numeric 
quantities. You create number regis- 
ters with a .nr command and expand 
them into the text with \nx or \n(xx 
escape sequences. The first syntax is 
for one-character names, and the sec- 
ond is for two-character names. The 
string \nx, when found in the input, is 
replaced by a string representing the 


105 








MICROWAY MEANS 8087 PERFORMANCE 











FastCACHE-286”" 


Runs the 80286 at 8.5 or 11 MHz andthe 
80287 at 5, 6 or 11 MHz Includes 8 
kbytes of 55ns CACHE Works with more 
PCs than any other accelerator, including 
Leading Edge Model D, Compaq, and 
Turbo motherboards. Includes 8088 
Reboot Switch, DCache and Diagno- 
stics. 


DATA ACQUISITION and 
REAL TIME TOOLS 


DAL” - “Data Acquisition Language.” 


Unkelscope” — A real time data acquisi 
tion, control and process software pkg. 


87FFT and 87FFT-2 
TransView Menu driven FFT Spectrum/ 
transfer analyzer.................... $250 


RTOS - REAL TIME OPERATING SYSTEM 
A multi-user, multi-tasking real time oper- 
ating system. Includes a configured ver- 
sion of Intel's iRMX-86, LINK-86, LOC-86, 
LIB-86, OH-86 and the MicroWay 
87DEBUG. Runs on the IBM-PC, XT, PC- 
AT and‘ GOMPAQ |... is5.000 a. $600 


INTEL COMPILERS Available for RTOS 
FORTRAN-86, PASCAL-86, PL/M-86. 


A2D-160" 


The Fastest 12 bit sees 
A/D Converter : 






$1295 


160,000 Samples per second 

Pseudo Random Noise Generator/DAC 
Optional signal conditioners 

AFM-50 Programmable Low Pass 

Famer MOGUIG. Foo 2 ice tcs ee aka $225 


CALL (617) 746-7341 FOR OUR COMPLETE CATALOG 
Micro :2.27:... 


02364 USA 
(617) 746-7341 


Way 
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LOTUS/INTEL EMS 
SPECIFICATION BOARDS 


MegaPage’ The only EMS board which 
comes populated with two megabytes of 
cool-running, low power drain CMOS 
RAM installed. Includes RAM disk, print 
spooler, disk cache and EMS drivers. For 
the IBM PC, XT and compatibles...$549 


MegaPage with OK............... $149 


MegaPage AT/ECC™ EMS card for the 
PC AT and compatibles includes Error 
Correction Circuitry. With ECC, 11 RAM 
chips cover 256K so the user never er- 
counters RAM errors. Sold populated with 
1 megabyte CMOS .. . $699 or with 3 
megabytes CMOS cool running low 
power drain RAM .. . $1295. Optional 
serial/parallel daughterboard....... 












287 Turbo"-10/12 






















_ 287Turbo runs the 80287 
at 10 or 12 MHz inthe IBM 
' PCAT, compatibles and the 
| newCompag 386 with 100% 
| software compatibility. 














8087 SOFTWARE 


IBM BASIC COMPILER........... $465 
MICROSOFT QUICK BASIC ....... $79 







87 BASIC COMPILER PATCH..... $150 
IBM MACRO ASSEMBLER....... $155 
MS MACRO ASSEMBLER......... $99 
87MACRO/DEBUG............... $200 
MICROSOFT FORTRAN.......... $209 
PET GARRET oo Rian oe Cos sma $399 
LAHEY FORTRAN F77L......... $477 
MS OF-LATHGE Ge vase ORS CALL 
STSC APL*®PLUS/PC............ $450 
STSC STATGRAPHICS........... $675 
eae Pe tte i at Be S $675 
87SFL Scientific Functions....... $250 
PHOENIX PRODUCTS........... CALL 
FASTBREAK for 1-2-3 V.1A........ $79 
HOTLINK for 4-2-3:-V.1A3 oo. .ecc3. $99 


The World Leader 
in 8087 Support! 


Circle no. 300 on reader service card. 




























NUMBER 
SMASHER/ECM" 


Triples the speed of your 
PC, XT or compatible! 


From 


$599 


Pty ak 

















12 MHz 
Accelerator 
Plus 
A Megabyte 
for DOS 


PC Magazine “Editor’s Choice” 






8087 UPGRADES 


All MicroWay 8087s include a one year 
warranty, complete MicroWay Test Pro- 
gram and installation instructions. 


SOGT S MMNZ 28 $114 
For the IBM PC, XT and compatibles 
8087-2 8 MHz................ $149 
For Wang, AT&T, DeskPro, NEC, Leading Edge 
80287-3 5 MHz.............. $179 
For the IBM PC AT and 286 compatibles 
80287-66 MHz............. $229 
For 8 MHz AT compatibles 

80287-8 8 MHz............. $259 
For the 8 MHz 80286 accelerator cards 
80287-1010 MHz.......... $395 
For the Compaq 386 


Call for prices on V20, V30, 
64K, 128K and 256K RAM 


287 TURBO-PLUS”™ 
Speeds up your AT 
Adjustable 80286 Clock 6-12 MHz 

10 MHz 80287 Clock 
Plus Full Hardware Reset......... $149 
Optional 80286-10 


287 TURBO-PLU 
With: 80287 TO MUZ.W Sc ois Seo i ace 
WR GQ28T 12 MZ. 2 sees 5 62 Fo9 ess $629 


MicroWay Europe 

32 High Street 
Kingston-Upon-Thames 
Surrey England KT1 1HL 
Telephone: 01-541-5466 
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NOW INTRODUCING VIRTUAL MEMORY SUPPORT 
BetterBASIC with the optional Virtual Memory Manager can 
now V ecerne 400,000,000,000 bytes of enn: 


BetterBASIC Application 
Development System $199.00 


The BetterBASIC Application Development 
System provides very close compatibility with 
PC-BASICA and GW-BASIC, yet provides numer- 
ous new and sophisticated language features such 
as: program Block Structures, recursive Procedures 
and Functions with local variables, structures, 
Records and Pointers and last but not least sup- 
port of large memory. 





=| BetterBASIC Application 
Development System $199.00 
The BetterBASIC Application Development 





PC-BASICA and GW-BASIC, yet provides numer- 
ous new and sophisticated language features such 
as: program Block Structures, recursive Procedures 
and Functions with local variables, structures, 
Records and Pointers and last but not least sup- 
port of large memory. 


Virtual Memory Manager $99.00 


The Virtual Memory Manager expands 
Better-BASIC’s data space into the giga- 
byte range and finally breaks the 640k byte barrier 
for array sizes. Not only can you directly address 
all expanded memory supported by LIM/EMS 
memory boards, you can also address any RAM 
Disk, Hard Disk or even a Floppy Disk as if they 
were e ordinary RAM. 


C-Link $99.00 
This software package allows BetterBASIC 
to access C-language library functions from 
within BetterBASIC. Currently supported are 
Lattice and Microsoft C. 








Screen Design System $199.00 
This package truly takes the drudgery out 
=34 of creating display screens and data entry 
screens, An interactive Screen Editor lets you 
“paint” your display screens exactly as you want 
them to appear in your program. The completed 
screens take the form of disk resident images. 
A run time library module provides many new 
BetterBASIC procedures and functions for inter- 
acting with the display screens to simplify the 
use of pop-up menus and data entry screens. 





wal System provides very close compatibility with 


Btrieve™ Interface $99.00 


This is a high level BetterBASIC interface 
to the ever popular Btrieve™ file manager 
from SoftCraft. Instead of Assembly language calls 
this module provides high level BetterBASIC pro- 
gram access to all Btrieve™ functions. Use it to design 
your own database application in BetterBASIC. 





8087/80287 Math Module $99.00 


This module allows you to use the 8087 
smal OF 80287 co-processor to significantly accel- 
erate programs which are floating point calcula- 

tions intensive. 





Decimal Math Module $99.00 


If you are a business programmer, you are 
probably frustrated by the many roundoff 
problems caused by ordinary IEEE format floating 
point numerical operations. The BetterBASIC 
Decimal Math Module which offers variable preci- 
sion from 6 to 24 digits, drastically reduces roundoff 
problems in business applications. 





BetterTools™ $99.00 
This is a collection of more than 150 useful 
34 extensions to BetterBASIC such as time 
and date computations, encryption and decryp- 
tion, low level file directory access, hyperbolic 
function and much more. No BetterBASIC pro- 

grammer should be without BetterTools™ 





Virtual Memory Manager- 
Network Version $250.00 


This version of the Virtual Memory Manager 
allows Virtual Memory to be distributed through- 
out a Local Area Network. It also provides File, 
Records and Field Locking to control access to 
shared data. 


Call our Toll Free Order Line 
1-800-255-5800 


BASIC. 


Summit Software Technology, Inc” 
106 Access Road, Norwood, MA 02062 











Circle no. 363 on reader service card. 


CS CHESE 
(continued from page 105) 


contents of the indicated number 
register. 

There are preincrement and decre- 
ment syntaxes, too: \n+x, \n+(xx, 
\n—x, and \n—(xx. With these syn- 
taxes the number register is incre- 
mented (or decremented) by a prede- 
termined amount before the escape 
sequence is interpolated. Nonexistent 


° the csonniodc contents of t ni 
¢ the input line trap (it’s cleared 


_« the current no-break charac 
_ the fill status (line filling enable 
« the indent level (as set with .in) _ 
_ «the page offset (as set with po) 
¢ the line spacing (as set with ./s) 
* the line-numbering values (as set 
s ve ie ae characters ae me ane ees 


. the ee par ee length ( oe 


number registers expand to 0. You 
can use number registers both in com- 
mands and embedded in the text. 
Several number registers are creat- 
ed and maintained by nr itself (see Ta- 
ble 5, below). These hold such 
things as the current page number. 
You can use number registers to do 
things such as keep track of the cur- 
rent footnote number. For example, 
.nr fn O creates a number register 
called fn that will hold the footnote 


e buffer is cleared after its contents are a store 
*r being saved) 


+ the count associated with the .Cu, ul, -bo, or -0S—all these < are set to zero 0 after being 
saved _ 
« the adjustment mode (as set wh 
_¢ the current font (as set with \fo 
_ «the command character (as s 
| e the escape character (as se 





Table 4: The contents mir an envireamient 


width of (maximum line lengt 
height of (numbers of 


8 


79 


2 


current rena _ 


a 


Gecond ¥hon bten nee 
0 a ihe week when exe 


vertical place in current ¢ 


current indent column (as set \ 
current line length (as set wit 
length of the text part of pre 
current page offset (as set 
current page length (as se 
distance to next trap (in lin 

-1 if in fill mode, 0 othe 

current line spacing (a 


oo 


Table 5: Predefined number registers 
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"current output page number” 
y line in) the most recently c completed diversion 





diversion (distance from line 1). 
currently active font (can be stored and then passed to .ft later on). 
vith ain) 


arge if there’s no trap) 








number. You can access this register 
with \n(fn, but if you use \n+(fn, 
then the register will be incremented 
automatically before it’s expanded. 
This process can in turn be hidden in 
a string—.ds * \u\\n+(fn\d. Here the 
\u and \d send the cursor up and 
down half a line. You need two back- 
slashes to prevent nr from expanding 
the number register at definition 
time. You can now expand the string 
with a \** in the text, thereby both 
printing and incrementing the cur- 
rent footnote number. The number 
register is incremented before it’s 
expanded. 

Number registers can be expanded 
into the text in several formats. That 
is, the number is just a number, but it 
can be expanded as an Arabic num- 
ber (with optional zero fill), as an up- 
percase or lowercase Roman numer- 
al, in outline format (a, b, c, Z... aa, 
ab...az), or in English words (one 
thousand, two hundred fifty-seven). 


.nr name [+—JN [[—JM]—create or 
modify number register name by N. 
For example, .nr x 10 creates a num- 
ber register called x and initializes it 
to 10, and .nr x +5 increases the con- 
tents of x to 15. M is the increment 
amount (the default is 1 if M is ab- 
sent). When the number register is 
accessed using the \n+x or \n+(xx 
syntax, then M is added to the regis- 
ter before it is expanded. M may be 
negative. Unlike nroff, .nr, with no 
arguments, prints a list of all current- 
ly defined number registers and 
their contents. 


.7r name—remove the named num- 
ber register. 


.af name mode—alter the expansion 
format of the named number register 
to the indicated mode. Default is Ara- 
bic. Legal values of mode are shown 
in Table 6, page 109. The leading Os in 
the Arabic formats (as in the second 
and third lines of Table 6) determine 
the field width of the number. 


In my next column, I'll conclude 
this user’s manual by describing tab- 
ulation, control flow, hyphenation, 
line numbering, and more. 


Availability 
The February, March, and April 1987 
C Chests have been combined to cre- 
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ate Nr: An Nroff-Like Text Processor 
for MS-DOS. This reprint is available 
with a source-code disk for $29.95. 
Send prepaid orders to M&T Books, 
501 Galveston Dr., Redwood City, CA 
94063 or call (415) 366-3600, extension 
216. Please add $2.25 for shipping and 
handling ($5 for foreign orders). 








DDJ 
(Listings begin on page 48.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 4. 





Definitions, 

Declarations, and Casts 
Kernighan and Ritchie, for reasons 
unknown to myself, use the terms 
declaration and definition in a special 


way. Unfortunately, the way they 


use these words is the inverse of the 
way in which every other program- 
mer thinks of them. A declaration is 
an announcement (at least according 
to Webster’s). Consequently K & R 
use the word declaration to mean 
that you are announcing the pres- 
ence of a variable to the compiler. 
You aren't allocating space for that 
variable; you're just announcing its 
presence somewhere in some mod- 


ule in your program. The linker will 


find the actual variable when the 
modules are linked. An extern state- 


ment is used to declare a variable in K 


& R's sense of the word. © 

On the other hand, Webster's says 
that to define an object is to “fix or 
mark the limits’ of that object, to allo- 


cate space for the object. So a variable 


definition in C is what actually allo- 
cates space for a variable. This usage is 
backward from the normal usage, 
_thus the confusion. A declaration is al- 
_ ways implicit in a definition—when 
you allocate space for an object (de- 
fine it), you also tell the compiler that 
_ the object exists somewh ere). 

The declaration/defi 
_ drum can cause problems. A particu- 





larly nasty one is brought about by — 


implicit declarations of subroutines. 
If you use a subroutine that hasn’t 
been previously declared (with ei- 
_ ther an extern statement or a real def- 
inition), the compiler assumes that 


_the subroutine returns an int. The > 


problem arises when you then use 


Dr. Dobb’s Journal, March 1987 





n conun- 
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12,3,.4.. 
_ 01, 02, 03, 04, . 
002, 003, 004, 


























Vv. V. VI. Vil, . 
. Z, aa, ab, ac. 















A cast ‘ope xr temporarily 


changes the pecific object. 
It is formed by v g a variable dec- 
laration of | ired type, sur- 


rounding the 
rentheses, and 1 removing the 
name and semicolon. For example, 
you'd declare a _ character pointer 
with: 

char "Dostoevski 

You change ibe ce lesavion to a cast 


by new ne a eee wih 
paren 


semicolon: __ 


‘ichar 7% 
You can now y convert an object to a 
character — pointer b by preceding its 
use with the cast. 


‘i e an ET 
th a cast: 









runner( (doub 


The definition/declaration prob- 
lem arises when you try to use a cast 
to change the type of an object that 
was implicitly declared as type int. 
For example, the following will not 
work as expected in the 8086 medi- 
um or large models: 


.Z, AA, AB, AC . 


ation with pa- | 














| struct building *tourist : 


tourist = (struct building *) 
tailor acon es ); 


You had intended to convert the 


ee, ne a cpuiding polier. The 
compiler doesn’t know that malloc( ) 


returns a character pointer, howev- 
er. It assumes that malloc( ) returns 
an int because there's no preceding 
extern statement. Pointers and ints 
are different sizes in the 8086 medi- 
um or large models, however. (An int — 
is probably 16 bits wide, and a point- 
er is probably 32 bits wide.) Because 


the comp er thinks that malloc( jre- 


turns an sae it truncates oe — 





| . Unfortunately, the pre-_ 
cision that you lost when the variable : 

_ was truncated is still lost. That is, the — 

| ee 16 ms o the reo are Jost : 


You can ie the pebbled: by telling 
the es cist malloc( ) nas re: 


either: 
extern nchar nalleet s 


tourist = = (struct Ouncing) 3 _ 
— So malloc’ . 





or: 


extern struct building *malloc(); 
tourist = malloc(.. .); 


In the first example, you're convert- 
ing a character pointer to a building 
pointer. As both of these pointers are 
the same width, no et is et © 
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COLUMNS 


S0386 Resources 

ttendees of the November 1986 

Comdex in Las Vegas found 
themselves deluged by Intel 80386 
hype and hysteria from vendors and 
press alike. I'll be discussing this in- 
teresting new supermicro at length 
in these pages after Santa brings mea 
80386-based machine or accelerator 
board to play with; in the meantime, 
here are some helpful sources of 
information: 


80386 Programmer's Reference Man- 
ual. About 350 pages. Intel order 
number 230985-001. 

This manual covers architecture, 
memory management, memory pro- 
tection, multitasking, input/output, 
exception and interrupt handling, 
debugging support, virtual 8086 
mode, and mixing 16-bit and 32-bit 
code, and it has a full reference sec- 
tion on the individual instructions. 
It's a must-have for would-be 80386 
programmers. 


80386 Hardware Reference Manual. 
Intel order number 231732-001. 

This book covers internal architec- 
ture and pipelining, local bus inter- 
face, coprocessor interface, and 
memory cache. It’s for hardware 
knowledgeable types only. 


Introduction to the 80386. Intel order 
number 231252-001. 

A nice readable overview of the 
80386 in its native 32-bit processing 


by Ray Duncan 


mode and its support for paging, 
memory protection, and multitask- 
ing. It also includes a discussion of up- 
ward compatibility from 8086, 286 
protected mode, and the virtual 86 
mode. 


80386: A Collection of Article Reprints. 


60 pages. Intel order number 231737- 
001. 


110 





A compilation of recent feature ar- 
ticles from Electronic Design, IEEE Mi- 
cro, Computer Systems, and Tech 
Notes. 


The 80386: A High Performance Work- 
station Microprocessor. Intel order 
number 231776-001. 

An evaluation of the throughput of 
the 80386 and comparisons with 
other popular processors. It includes 
the C source code for the Dhrystone 
and Whetstone benchmarks. 


80386 High Performance 32-Bit Micro- 
processor with Integrated Memory 
Management. Product data sheet dat- 
ed April 1986. 131 pages. Intel order 
number 231630-002. 

A very terse summary of the hard- 
ware reference and programmer's 
reference mentioned earlier. 


You can order all the above from 
Intel Literature Sales, P.O. Box 58130, 
Santa Clara, CA 95052-8130; (800) 548- 
4725. Intel’s telephone order service 
is courteous, and delivery is prompt. 
The Intel publication catalog, order 
number 210620-010, is free for the 
asking. 


80386 Un-HResources 
Murray, William H., III, and Pappas, 


Chris H. 80386/80286 Assembly Lan- 
guage Programming. Berkeley, Calif.: 
Osborne/McGraw-Hill, 1986. 548 
pages with index. ISBN 0-07-881217-8. 

This is the 80386 reference book 
not to buy; it is a sad example of a 
publisher’s unscrupulous attempt to 
cash in on a new technology. Mur- 
ray'’s book is essentially about 8086 
programming with a few nods to the 


46-BIT SOFTWARE TOOLBOX 


additional instructions and protected 
mode of the 80286, and it makes only 
token references to the 80386. The 
few program fragments that illus- 
trate the 80386’s 32-bit instructions 
would never run if assembled in cur- 
rent environments because they 
don’t include the 32-bit override byte. 
Some of the more interesting features 
of the 386, such as caching, pipelined 
instruction execution, segments up to 
4 gigabytes in length, and bit instruc- 
tions, are not covered at all. 


Assembly-Language 
Resources 

The November/December 1986 issue 
of Programmer’s Journal contains 
two articles that 16-Bit Toolbox read- 
ers will find especially useful. M. Ste- 
ven Baker has contributed an expla- 
nation of Terminate and Stay 
Resident utilities that includes discus- 
sion of the In-DOS flag (int 21h, func- 
tion 34h) and the Multiplex Interrupt 
(int 2fh). George Defenbaugh has writ- 
ten an article on “Parents, Children, 
Redirection, and Piping’ that dis- 
cusses the MS-DOS DUP and CDUP func- 
tions (int 21h, functions 45h and 46h). 


The Byte Information Exchange 
(BIX) has an exceptionally active and 
useful conference called MS-DOS Se- 
crets. This conference already con- 
tains nearly a thousand messages 
about undocumented MS-DOS inter- 
rupts, TSR techniques, MS-DOS bugs 
and work-arounds, and the like. If 
you are a serious MS-DOS program- 
mer, you will find the cost of a BIX 
account more than justified by this 
conference alone. 


William Claff was kind enough to 
send me copies of the first eight is- 
sues of his monthly newsletter, PC 
Tech Report. These issues cover such 
topics as the ASSUME and GROUP dir- 
ectives, making .EXE files resident, de- 
vice driver templates, 8087 program- 
ming, and a complete critical error 
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SAS Institute Inc. 





Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 


Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 


i want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


(J) the C compiler for MVS software developers 
LJ the C compiler for CMS software developers 
C) the cross-compiler with PLINK86 and PLIB86 


today...so I’ll be ready for tomorrow. 


Please complete or attach your business card. 


Name 
Title 
Company 
Address 
City 
Telephone 


Mail to: SAS Institute Inc., Attn: CC, SAS Circle, Box 8000, Cary, NC, USA. 


27511-8000. Telephone (919) 467-8000, x 7000 


| 

| 

| 
| 

| 
| 
| 

| 
State ZIP | 
| 

| 
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(int 24h) handler. The more recent 
newsletters range from 6-11 pages in 
length and have a heavy emphasis on 
working source code. Subscriptions 
cost $18 per year. Contact Mr. Claff at 
7 Roberts Rd., Wellesley, MA 02181; 
(617) 235-9505. 


Call for Papers 

The Waite Group, a San Francisco- 
based computer book developer and 
publisher, is looking for contributing 
authors for a new book on MS-DOS en- 
titked The MS-DOS Papers. 

The news release from the Waite 
Group says: ‘The MS-DOS Papers will 
be a collection of learning tutorials 
written by a broad range of MS-DOS 
experts, gurus, wizards, and spokes- 
persons. The MS-DOS Papers will pro- 
vide insightful information on the 
MS-DOS operating system, revealing 
the more hidden and obscure truths 
about MS-DOS in an interesting, easy 
to read Waite Group format. Its con- 
tributed nature allows us to include 
subjects that might not support a sep- 
arate book as well as subjects that are 
on the cutting edge of MS-DOS technol- 
ogy. The audience level is intermedi- 
ate to advanced businesspeople, pro- 
grammers, and anyone who wants 
the most up-to-date information 
about this popular operating system. 
Examples are given in both MS-C and 
MASM. 

“The book will consist of three 
types of contributions: 


¢ Tutorials on topics that have never 
been adequately discussed in the lit- 
erature. These include inside BIOS, 
tips and undocumented secrets, stay 
resident programming, advanced 
MASM programming, and debugging 
as well as new concepts arising in MS- 
DOS, such as protected mode MS-DOS 
and CD ROMs. 

e Issue papers by experts in a particu- 
lar area of MS-DOS. These will discuss 
past controversies, the future of MS- 
DOS, and so on. 

¢ Case-history papers, which will tell 
the bottom line about real MS-DOS 
machines, projects, and software 
tools.”’ 


For more information, contact 
Mitchell Waite at one of the follow- 
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ing electronic mail addresses: 


BIX: mwaite 
The WELL: mitch 
Usenet: Ill-Icc, hplabs}!well!mitch 


A Nifty Tool 

Cruise Control is a Terminate and 
Stay Resident (TSR) utility for IBM PCs 
and compatibles that eliminates cur- 
sor runon, the term the utility's au- 
thor uses for the behavior of pro- 
grams that cannot process keystrokes 
as fast as the keyboard's auto-repeat 
rate. When you are using such a pro- 


Name 


PASTE—horizontally concatenate two files 


Synopsis 


gram and hold down a key, the key- 
strokes pile up in the type-ahead 
buffer until it is full and then you 
hear a beep that tells you to release 
the key. The piled-up keystrokes are 
then processed until the buffer is 
empty, so you frequently tab or scroll 
much farther than you intended to. 
Lotus 1-2-3, WordStar, and Microsoft 
Word are three commonly used pro- 
grams that have this problem on old- 
er 8088 or 8086-based PCs. 

The primary effect of Cruise Con- 
trol is that it monitors the type-ahead 
buffer and dynamically adjusts the 


paste [ —paste] | —b <string>] [ — <n>] [file1] [file2] 


Description 


PASTE will append to the lines of <file1> the corresponding lines of <file2>, with an 
optional string between them. PASTE writes to standard output. 
The following flags are recognized by PASTE: 


<p 


<file1 > does not exist (<string> is prepended to each line). 


ma <file2> does not exist (<string> is appended to each line). 
_—s Do not print <string> with lines from only one file. 

= Resolve the ambiguous command paste <file>. The —t flag forces <file> to 
trail standard input—that is, paste <file> is equivalent to paste <file> 
<stdin>, and paste —t <file> is equivalent to paste <stdin> <file>. 
Do not print <string> if both input lines are empty (contain no characters but \n). 
Indicates that a string of characters follows. The string is inserted between each 
line of <file1> and <file2>.The string can contain all the standard escape codes 
with the exception of \0’. The escape sequence ‘\s’ is also known to represent a 
blank. Blanks may also be embedded in a string by enclosing the string in quotes. 

—<n-> Print n lines of <file1> before appending lines of <file2>. If n is negative (for 
example, paste — —3), then nlines of <file2> will be printed first. 


Bugs 


On some systems, you'll have to use an escape sequence to represent capital 

letters in string. Also, a quoted string with multiple blanks can have them reduced to single 

blanks on systems that do not recognize quote marks as special—use the escape se- 

quences ‘\s’or \ ’. : 2 
As of this writing, the standard escape sequences are: — 


\b _ backspace 

\f form feed 

\n newline 

\r Carriage return 
tab 


null character (not allowed in-string argument) 


literal backslash 
literal quote mark 
literal apostrophe 


\dad_ bit pattern, consisting of 1 — 3 octal digits 


Escape sequences special to PASTE: 


\S space 


A backslash followed by any other character merely represents that character. 


Author 
John M. Gamble, January 1984 





Table 1: Instructions for using the PASTE utility 
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keyboard auto-repeat rate to match 
the program's capability to process 
the keystrokes. This means that you 
never tab, page, or scroll past your 
desired destination. For those pro- 
grams that can handle it, the appar- 
ent speed of many keys (such as the 
arrow or page keys) is drastically in- 
creased. 

It sounds like a simple concept, but 
the difference in the behavior of 
your computer and favorite editor 
with Cruise Control installed is dra- 
matic. I have used it with both Micro- 
soft Word and MicroPro’s WordStar 
with excellent results. Cruise Control 
also offers a few nifty fringe benefits, 
such as an automatic screen dimmer 
after a configurable time delay, on- 
line help, and a date and time stamp- 
er with configurable formats. The 
vendor claims that the utility is com- 
patible with most other RAM-resident 
programs; it worked fine for me with 
both SideKick and ProCED. 

You can obtain Cruise Control 
from Revolution Software Inc., 715 
Rte. 10 E, Randolph, NJ, 07869; (201) 
366-4445. 


Programming Pearl 

of the Month 

Richard Rodman, of Falls Church, 
Virginia, writes: ‘‘Here’s a helpful 
hint for programmers attempting to 
write adapting I/O routines. 

“The IBM PC data bus is not pulled 
up. If you try to read a data port to see 
if the board is or is not installed, and 
the board is not installed, you may 
get a false indication because the 
floating bus still contains the last data 
byte that was fetched by the CPU. 

“To correct this problem, you need 
to ensure that the bus contains a pat- 
tern with as many bits set to 1 as pos- 
sible. One method of doing this is 
shown below: 


cle 
cle 
cle 
cle 
cle 
cle 
in al,dx 
cle 
cle 
cle 
cle 
cle 
cle 


Dr. Dobb’s Journal, March 1987 


‘The 8088's instruction prefetch 
queue is 6 bytes long. The six clc in- 
structions (opcode 0f8h) on each side 
of the in instruction allow the bus to 
float at a value of 0f8h hex for unim- 
plemented hardware. 

‘The real solution, of course, 
would have been a terminated bus. 
Unfortunately, the IBM PC was a 
quick and dirty design.” 


The PASTE Utility 

John Gamble of West Lafayette, Indi- 
ana, has sent in a useful program 
called PASTE that appends the lines of 
one file to the end of the lines of an- 


Ci the PRO Pes . 


other file and writes the resulting 


lines to the standard output device. 
PASTE can be used to horizontally 
concatenate tables or columns of in- 
formation that have been edited sep- 
arately. The program optionally pre- 
pends, appends, or inserts a string 
into the newly generated lines. Table 
1, page 112, contains instructions for 
using the program, and the pro- 
grams source code accompanies this 
column as Listing One, page 78. I have 
tested the program before publica- 
tion with Microsoft C, Version 4.0, 
and MS-DOS, Version 3.1. 

John writes: “I have found this pro- 


MS-DOS 
Programmer 
clerence 


There’s never been a better time to buy Lattice C. Professional 
programmers the world over have made Lattice C the standard 
compiler for serious MS-DOS programming. Our compiler fea- 
tures include: ANSI language constructs including, unsigned 
as a modifier, void data type, enum data type, structure assign- 
ments, structure arguments, structure returns, and argument 


type checking. 


The library contains more than 200 new functions, including: 
ANSI/UNIX/XENIX compatibility; extended support for MS-DOS; 
extended support for networking including file sharing, file 
locking, and I/O redirection; and flexible error handling via user 
traps and exits. Plus the library has also been re-engineered 
to produce much smaller executables. 

Try the new Lattice C Compiler. Because C-ing is believing. 


<- 
&0 
“Se 


Lattice 


INTERNATIONAL SALES OFFICES: 


P.O. Box 3072 


312/858-7950 


Lattice, Incorporated 
Glen Ellyn, Illinois 60138 


TWX 910-291-2190 


Benelux: Ines Datacom (32) 2-720-51-61 Japan: Lifeboat Inc. (03)293-4711 


England: Roundhill (0672 )54675 
Germany: (49)7841/4500 


Circle no. 101 on reader service card. 


France: SFL (1)46-66-11-55 
(49 )8946/13290 
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You are in the market for serious Al tools. You are just 
getting started — but you have plans for bigger, more 


Pro: ESSI ONAL serious work. Your purchasing criteria: 

PROLOG - OR TH EF ¢ You want an inexpensive product — but not an “Al toy”. 
You are doing your initial work on a PC — but you want 

PROF ESSION A [ a product that is flexible and portable. You want the 

) computers. 

P RO GRAMME R You do not want to face any dead ends a month or a 














option of expanding your serious work to other, larger 
year down the road. 






You want to invest in a product line that does not leave 
you stranded when you take that inevitable next step. 


Logicware Inc., the leading supplier of Prolog and 
Prolog-based Al tools, has a solution for you — our 
Al Starter Kit. This starter kit includes: 


The P-550 product: 

An inexpensive, but full-featured implementation of 
Prolog. It consists of our full MProlog interpreter and our 
interactive programming environment with a full screen 
editor. This product also contains Eagle Graphics — a 
full set of graphics predicates that allow you to create 
three-dimensional graphics for your PC applications. 


The Primer: 

Our introduction to the Prolog language and to the 
concepts of logic programming — a 500-page textbook 
and two-diskette tutorial software. The best hands-on 
introduction to Prolog on the market today. 


Both P-550 and the Primer software require 512K RAM, 
DOS 2.0 (or later) and a minimum of two floppy drives. 


ne Al Starter Kit tadisd wt 
rom ‘i : 
Allfor$220.00, aso omeair ge 
. ' Glenn. 


Circle no. 366 on reader service card. 


Clip and mail to: @ 
LOGICWARE INC,, Micro Division, Logicware Inc. 


70 Wainut Street, Wellesley, MA. 02181 


Name Company 


_| Enclosed is a check or money order to LOGICWARE INC. 








State/Prov. Zip/Postal Code 
("] Please bill my charge card 
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FLOPPY DISK. 
Fills time between coffee breaks 
Makes a hard disk seem fast 


Your computer appears busy 
(even if you aren’t!) 


Wears out moving parts 


_.. for YOUR demanding tasks. 


SURPRISE! Neither is memory mapped, so they don’t 
affect your precious Main Memory. Both retain data indefi- 
nitely - even with the computer turned off. 


THE SEMIDISK SOLUTION. You could invest in a 
series of “upgrades” that turn out to be expensive band-aids 
without solving your real problem. Even those “Ac- 
celerator” and “Turbo” boards do little to speed up disk- 
bound computers. If your applications spend too much time 
reading and writing to disk (and whose don’t?), you won’t 
want to settle for anything less than a SemiDisk disk 
emulator. The SemiDisk comes in 512K and 2Mb capacity. 
More boards may be added to make up to an 8 Megabyte 
SemiDrive! 


SPEED THAT’S COMPATIBLE. PC, XT or AT, if you 
need speed, the SemiDisk has it. How fast? Recent ben- 
chmarks show the SemiDisk is from 2 to 5 times faster than 
hard disks, and from 25% faster (writing) to several times 
faster (random reads) than VDISK and other RAMdisk 
software that gobble up your main memory. 

MEMORY THAT’S STORAGE. Using our small exter- 
nal power supply, with battery backup, your data remains 
intact through your longest vacation or even a seven-hour 
power failure! 


sa, 





the better fit... 











: } 
=| 
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SEMIDISK Disk Emulator. 
Gets that job done NOW 
Makes a hard disk seem slow 


Maximizes your productivity 
with anything from databases 
to compilers 


Totally silent operation 


OSS Soom 


CELEBRATE WITH US! Now, SemiDisk celebrates its 
fifth birthday with a special offer for IBM-PC owners. Buy 
a SemiDisk now and we’ll include an 8 MHz V-20 micro- 
processor (replaces the 8088) to make your new SemiDisk 
run even faster. Don’t need the V-20? We’ll take $20 off 
the price of your Battery Backup Unit! 


512K 2Mbyte 
IBM, PC, XT, AT $495 $ 795 
Epson QX-10 $495 $ 995 
S-100 SemiDisk II $795 $1295 
S-100 SemiDisk I $299 = anne nee annnee 
TRS-80 II, 12, 16 $495 $ 995 
Battery Backup $130 $ 130 


Someday you’ll get a SemiDisk. 
Until then, you’ll just have to...wait. 


SemiDisk 


SemiDisk Systems, Inc., 11080 S.W. Allen Blvd., Beaverton, Oregon 97005 (503) 626-3104 


Circle no. 85 on reader service card. 
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gram useful for creating command 
files on the fly for systems such as 
VMS or MS-DOS by taking a directory 
listing as an input file and attaching 
strings to the beginning or end of the 
lines. The Unix shell can do this by 
itself, but there are still some tricks 
that can be played with PASTE. For 
example, the command 


paste —a -b ’\n’ afile.txt 


will double-space the lines in 
afile.txt. 

“I think that, if the program needs 
any improvement, it is in its method 
of input/output—it is done character 
by character. I really ought to have 
made it more efficient, but I fell foul 
of the ‘good enough’ syndrome and 
lost interest. 

[After writing this program] I 
learned that there is a similar Unix 
System V utility, also called PASTE. It 
appends the lines of one file to anoth- 
er, too, but it automatically inserts a 
tab between the lines and will accept 
more than two files on the command 
line—I think it is meant more for 
nroff text processing.”’ 


Semester Final 
Larry Heberlein, of Maryville, Mary- 
land, submits this little tidbit: 


‘Final Exam: Algorithm Design 101 
Extra-Credit Question 

You attempt a search and replace op- 
eration using a commercial word 
processor—the latest version of 
Word from Microsoft, the world’s 
largest microcomputer software 
house. ... You load a 20K file into a 
PC with 640K RAM. With the program 
and file loaded, 400K of memory are 
free. You attempt to replace every 
carriage return in the file with a 
space. Less than a quarter of the way 
through the file, the operation aborts 
with the error message ‘insufficient 
memory. You observe that this hap- 
pens reliably, in any file, on any re- 
placement, with a sufficiently large 
number of occurrences. 

‘‘An A for the course goes to any 
student who turns in a replacement 
algorithm so bad that it can’t succeed 
in memory 20 times the size of the 
data.”’ 
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Assembly vs. 
High-Level Languages 
Charles Lyall of Kingman, Alberta, 
writes: “I couldn't let your invitation 
in the July 1986 issue of DDJ to discuss 
the assembly-language vs. high-level- 
language issue go unanswered. 
“Tam an EDP consultant who 
hacked his first piece of code in 1963 
on an IBM 1620. Even in those days we 
were arguing the relative merits of 
assembly vs. higher-level languages. 
Now we have several fourth-genera- 


It is not 
alwars true 
that assembly- 
language programs 
run faster 
than high-level 
programs. 


tion languages that help to spice up 
the debate even more. 

“I must take issue with your state- 
ment that ‘It doesn’t take me more 
than an hour or two to write a pro- 
gram the size of TEE from scratch in 
assembly language... .’ The state- 
ment is false! Oh, I am quite sure that 
you could write it in Microsoft MASM 
for the IBM PC. Could you write it in 
two hours in assembly language for 
the VAX? No, then how about a Data 
General NOVA? A UNIVAC 1100 per- 
chance? I think not. I can keep two 
assembly languages in my head at 
one time, but that is it. I doubt if you 
are truly fluent in more than two as- 
sembly languages either. 

‘What you really meant is that you 
can write TEE in assembly language 
for one particular machine in two 
hours. Mr. Gary Woodman can write 
the equivalent program in a few min- 
utes for every machine that has a C 
compiler. I suggest that the C compil- 
er is infinitely more productive. 

“To quote you again: ‘For me, the 
benefits of the superior performance 
and compactness of an assembly-lan- 
guage program almost always out- 
weigh all other considerations for 
utility programs I am going to run 
more than once.’ I submit that this is 
illogical. Let us put some numbers on 
it, Ray. Suppose Gary Woodman’s 


program runs in 10 seconds and your 
program runs in 1 second. But you 
took two hours to write your pro- 
gram, and Gary probably took 15 
minutes. That’s a difference of 105 
minutes, or 6,300 seconds, of coding 
time. At a 9-second advantage per 
run, you are going to have to run the 
little turkey 700 times in order to 
break even on total elapsed time. 

“It is not necessarily always true 
that assembly-language programs 
run faster and take less space than 
equivalent high-level-language pro- 
grams. A case in point is a little rou- 
tine available to strip the high-order 
bit from WordStar files. It is written 
in assembly language and handles its 
input and output one character at a 
time, and it uses DOS to redirect both 
input and output. It is sowwww! I 
wrote a C program that reads in 16K 
of input, strips the bit off using regis- 
ter variables for my pointers to make 
things trot along, and then writes the 
buffer. Now that moves. True, my 
routine is much bigger, but in this 
case I will cheerfully trade size for 
speed. It took only a few minutes to 
write, too. 

“Your emphasis on performance 
and compactness is not without mer- 
it, and I can argue your side of the 
debate, too. The microcomputers we 
have had to deal with in the last ten 
years have been characterized by 
very limited memory, poor CPU per- 
formance, and expensive slow back- 
ing storage. Under these circum- 
stances you can raise a heck of a good 
defense for your position. But this sit- 
uation is coming to an end. A half 
megabyte of memory is now com- 
mon. Processors such as the 80286 
can almost get out of their own way, 
and the latest generation of 68000 
chips are quite peppy. The 80386 ma- 
chines will probably accept 16 mega- 
bytes of directly addressable memo- 
ry (a 24-bit memory bus) and be two 
or three times as fast as the AT ma- 
chines. [The 80386 can actually ad- 
dress 4 gigabytes of physical memory 
and some 70 terabytes of virtual mem- 
ory.—Ray] 

‘Look what happens now to the 
numbers I gave you a few para- 
graphs back. If the machine is three 
times as fast, then your utility will 
run in 0.3 seconds and Gary’s will run 
in 3.3 seconds. It will now take 2,100 
executions of the utility before you 


Dr. Dobb’s Journal, March 1987 


__ 1 Year (6 issues) $20 __ 2 Years (12 issues) $35 


__Please charge my: —— Visa —— MC ——. American Express 
—_.Paymentenciosed - Bill me later 

Card #_ CE Xp. date 

Signature 

Name 

PRGIOOS sicccscasitstsitimemnesencapmeicioantiomspiniicnapmnamamiiifiianieaiiidscciuisteaiasittnisnliepiciaeasisddiiatiniadupitansinineciiaiitianins 

AI ssconnspensersevescrsesresettheesrnbs hace gniamststiaeceetaiactinaag itt: a Zip. 





Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. 


ee 


ee eee eee eee Oe ee Owe au era SO ewes aneasane ee eoreroe wero ee 2 28282 2 eee” 


__1 Year (6 issues) $20 __2 Years (12 issues) $35 


——_Please charge my: —— Visa —— MC —— American Express 
—___. Payment enclosed - Bill me later 

CI ccccarcenigteennsrennernpirsnsrtelintesieninitea tats: 

EY scceeceiescistieencesitsncseiliitcerpainleaicnkaenineetcinanst leeching agli lacie tedectci dicta 

Name 

Address 

a Zip 





Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. 


__1 Year (6 issues) $20 __ 2 Years (12 issues) $35 

















—_Please charge my: —_— Visa —__ MC __. American Express 
—__.Paymentenclosed - Bill me later 

Card # Exp. date 

Signature 

Name 

Address 

I Sct nteseseenssscnnrincectngnitenetiontionlinsiionicesciiile GNI Zip. 


Canada & Mexico add $3 for surface mail; $7 for airmail. All other countries add $12 for airmail. All foreign subscriptions 
must be prepaid in U.S. dollars drawn on a U.S. bank. Please allow 6-8 weeks for delivery of first issue. 
A Publication of M & T Publishing, Inc. 


a ee 


30C 


301 


3C 


nore venarax AoE 


POSTAGE WILL BE PAID BY ADDRESSEE 


901 GALVESTON DR. 
REDWOOD CITY, CA 94063 


Seebollccad tence 


POSTAGE WILL BE PAID BY ADDRESSEE 


501 GALVESTON DR. 
REDWOOD CITY, CA 94063 


uae coeds Peaiadaen 


POSTAGE WILL BE PAID BY ADDRESSEE 


901 GALVESTON DR. 
REDWOOD CITY, CA 94063 


NO POSTAGE 
NECESSARY 
IF MAILED 


IN THE 
UNITED STATES 










NO POSTAGE 
NECESSARY 
IF MAILED 


IN THE 
UNITED STATES 









i iii it i a Nai ii ii in iat i aah a i i i i i i i i i Es al ra 


NO POSTAGE 
NECESSARY 
IF MAILED 


IN THE 
UNITED STATES 










YOUR SYSTEM’S 
COMPONENT 


At last there is a magazine that brings you to 

strictly technical but practical information 

you need to stay up-to-date with the ever 
changing microcomputer technology .. . 




















In future issues of Micro/Systems 

Journal you'll find such useful and 
41 progressive articles as: 

e Interfacing to Microsoft Windows 

e Multiprocessing and Multitasking 

¢ Using 80286 Protected Mode 

e High Resolution PC Graphics 

¢ 80386 Programming 

e Unix on the PC 


You'll get the hands-on, 
nuts and bolts information, insight 
and techniques that Micro /Systems Journal 
is famous for . . . indepth tutorials, reviews, hints 

... the latest information on computer integration, networks and 
multi-tasking, languages, operating systems and hard-hitting reviews. 
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break even! The faster a machine is, 
the less benefit assembly-language 
code is on that machine. 

‘A similar argument can be made 
about storage. The cheaper mass stor- 
age and memory become, the less ad- 
vantageous compact code becomes. 
Accountants call it a rise in the oppor- 
tunity cost. In other words, by writ- 
ing a utility in assembly language, 
you forego the other utilities that you 
could have written if you had used a 
more productive language. Against 
this you balance benefits of program 
size and run time, which become less 
and less significant as computer 
speeds rise and primary and second- 
ary storage costs decline. 

‘‘As a high priest, to use Jerry Pour- 
nelle’s epithet, I use assembly lan- 
guage to answer two classes of prob- 
lems: when I can't describe the 
procedure in a high-level language 
and when a critical small portion of 
the program runs too slowly. 

“With the advent of true fourth- 
generation languages, your position 
is going to be even harder to defend. I 


am currently designing a system us- 
ing Powerhouse, a fourth-generation 
language for superminis. In less than 
three hours, I can generate a proce- 
dure to paint a screen with a form, 
accept any number of fields from 
that screen, and update a record or 
create a new record in a file that has 
three indexes. The generated proce- 
dure is about 8K long. On a VAX ma- 
chine, the run time is sufficiently 
close to zero that it isn’t material. I 
have no doubt that a good macro as- 
sembler programmer could write a 
similar routine in about a week. The 
resulting routine costs the client $150 
if I write it in three hours. The same 
routine written in assembly language 
is not worth a penny more. The Pow- 
erhouse code, which is nonproce- 
dural, will be trivial to maintain. 
“Interestingly enough, my compa- 
ny has encountered a problem witha 
communications handler, and the 
communications expert, a red-hot 
macro programmer, intends to solve 
that one in FORTRAN. Certainly he 
could solve it in assembly language, 
but he can do it cheaper in FORTRAN. 
On a 16-megabyte VAX 780, the run 
time and space disadvantages are 
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immaterial. 

“In the long run, we spend three 
times as much time and effort on 
code maintenance than we do on the 
initial design and coding. To me, the 
benefits of clarity and simplicity in 
code and ease of maintenance out- 
weigh all other considerations about 
90 percent of the time. The other 10 
percent of the time, we are dealing 
with the nasty bits that shouldn't be 
discussed in a family magazine. 

“In conclusion, my position is that 
languages are tools to be used to solve 
problems and they are not ends in 
themselves. They have merits only to 
the extent that they help us meet our 
objectives. Two of these objectives 
are speed and compactness. Other 
objectives are clarity, simplicity, self- 
documentation, maintainability, pro- 
grammer productivity in lines per 
day, and so on. 

‘‘A person who uses only one pro- 
gramming language puts me in mind 
of the man whose only tool is a ham- 
mer. All his problems look like nails.”’ 

Thanks, Charles, for a beautifully 
written, educational, and witty let- 
ter. I wouldn't want you to go away 
believing that my only tool is a ham- 
mer; I use Forth, C, and even BASIC (I 
hope that at least one of those meets 
your criteria for a high-level lan- 
guage). But I feel most at home with 
assembly language, and contrary to 
your assertion that it is not possible to 
be fluent in more than two assembly 
languages, I consider myself quite 
fluent in 8080, Z80, 80x86, PDP-11, and 
Raytheon 703 assembly language. I 
can also get by well enough in 6502, 
8051, 8096, 68000, and 1802 assembler 
language. But I admit to total igno- 
rance of the UNIVAC, Data General, 
and VAX that you mentioned! 
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COLUMNS 


L: this issue, I discuss the differ- 
ences between the IBM PC BASICA 
and the new True BASIC and Quick- 
BASIC. I also include a short utility 
program to show interdialect transla- 
tion and discuss several differences 
in these BASIC dialects. 

In most cases, BASIC is the language 
that microcomputer users learn first, 
and in the IBM PC world, the imple- 
mentation they encounter is Micro- 
soft’s BASICA. BASIC has been judged 
inadequate for large software pro- 
jects, difficult to maintain, and lack- 
ing many new programming con- 
cepts. With the advent of structured 
languages, such as Turbo Pascal, pro- 
grammers have been given the taste 
of better techniques, and the myth 
that BASIC will always be the lan- 
guage is no longer true. 


New BASIC Dialects 

The wheel of progress has not spared 
BASIC from change, however. Two 
years ago, the original authors of BA- 
SIC (Kemeny and Kurtz) launched 
True BASIC, a more structured imple- 
mentation that is close to the new 
proposed ANSI BASIC. Almost simulta- 
neously, Microsoft launched a new 
BASIC compiler version, QuickBASIC, 
and in mid-1986, it introduced Ver- 
sion 2.0, which includes a versatile 
environment. QuickBASIC is not just 
another compiler for BASICA—it 
brings with it a new syntax, similar 
in many instances to that of True 
BASIC. 


by Namir Clement 
Shammas 


QuickBASIC does not require line 
numbers; instead, you place alpha- 
numeric labels in your programs to 
direct branching. True BASIC, howev- 
er, requires the entire program ei- 
ther to have line numbers or to have 
none at all. If you use GOTO or GOSUB 
in True BASIC, you need the line num- 
bers; otherwise, they are not manda- 
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BASIC: Quo Vadis? 
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tory. To my disappointment, True 
BASIC does not support labels. 

Both True BASIC and QuickBASIC 
support more structured program 
code. Multiline functions and subrou- 
tines (with argument lists) enable you 
to create more modular code that is 
easier to maintain and enhance. The 
new dialects also implement external 
libraries with the added notion that 
not all variables are global, which re- 
sembles many features in FORTRAN. 

What about translation between 
BASICA and True BASIC or QuickBA- 
SIC? As you may expect, because Mi- 
crosoft wrote both BASICA and Quick- 
BASIC, the two dialects have many 
built-in functions and statements in 
common. As a rule of thumb, the as- 
pects of BASICA not available to the 
QuickBASIC compiler, such as CHAIN 
MERGE, are related to the interpreter 
features. In general, BASICA is up- 
ward compatible with QuickBASIC. 

Translating programs from BASICA 
to True BASIC requires more work. 
True BASIC Inc. sells a BASIC converter 
to handle many systematic conver- 
sion steps. Like the Logitech Transla- 
tor I discussed in my last column, the 
BASIC converter does not translate 
100 percent of the BASICA code. Later 
I will present a sample BASICA pro- 
gram and its translated versions in 
True BASIC and QuickBASIC. To pave 
the way, I will first discuss several 
differences between the three 
dialects. 


Similarities and Differences 
Concerning data types, BASICA and 
QuickBASIC support an identical set 
of strings, integers, and single- and 
double-precision reals. True BASIC 


STRUCTURED PROGRAMMING 


supports even simpler types: strings 
and numbers. The distinction be- 
tween integers and reals is context- 
sensitive—if a number has no frac- 
tional part, it is stored as an integer; 
otherwise, it is stored as a real. String 
manipulation follows a different syn- 
tax in True BASIC. For example, when 
you extract and assign substrings in 
BASICA, you use something such as 
MIDS$(L$,FIRST%,LONG%). In True BASIC 
this is written as L$/{FIRST:(LONG 
+FIRST-1]. The square brackets and 
the colon inside them specify the first 
and last characters (as opposed to the 
number of characters in BASICA). 
True BASIC uses the ampersand to 
concatenate strings and names sever- 
al string functions differently. 

True BASIC supports matrix opera- 
tors, functions, and I/O procedures. 
While hand-translating BASICA pro- 
grams that perform matrix opera- 
tions, you can substitute blocks of 
code lines with single MAT 
statements. 

Loop constructs in BASICA and 
QuickBASIC are identical. I look for- 
ward to seeing more powerful RE- 
PEAT... UNTIL-like loops in the next 
version of QuickBASIC. True BASIC of- 
fers a variety of loops that include the 
FOR... NEXT, DO, DO WHILE, and the 
double-test DO WHILE... LOOP WHILE 
loops. If you perform manual transla- 
tion, many BASICA logical loops with 
GOTOs can be rewritten using any of 
the True BASIC loops, which en- 
hances readability. 

Decision-making constructs in 
QuickBASIC and True BASIC are supe- 
rior and far more readable than in 
BASICA. QuickBASIC and True BASIC 
support multiline IF... THEN... EL- 
SE... END IF constructs and even al- 
low for ELSEIF clauses. The ON GOTO 
and ON GOSUB use labels with Quick- 
BASIC. QuickBASIC does not support 
the CASE statement, whereas True 
BASIC does. Translating BASICA 
IF... THEN...ELSE statements en- 
ables you to use the clearer multiline 
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version in the other dialects. Gone 
are the frustrating branchings in the 
THEN or ELSE clause that breathe cha- 
os in your program. The ON GOTO/ 
GOSUB are easily translated to the su- 
perior SELECT CASE statement in 
True BASIC. 

How many times have you felt the 
limitations of BASICA in defining 
functions? How many times did you 
have to use a subroutine to simulate 
multiline functions? QuickBASIC and 
True BASIC make these painful mem- 
ories a thing of the past. Now func- 
tion definitions can extend over nu- 
merous lines and freely use loops and 
decision-making constructs. Where- 
as True BASIC supports recursive 
functions, QuickBASIC in its current 
version does not. 

Regarding subroutines, both 
QuickBASIC and True BASIC support 
the GOSUB <label or line number> 
and CALL <subname> forms. The 
called subroutines take optional ar- 
gument lists. Both QuickBASIC and 
True BASIC provide functions that re- 
turn the lower and upper bounds of 
arrays. These functions are vital for 
writing general-purpose routines 
that manipulate arrays and matrices. 

Both QuickBASIC and True BASIC 
support external libraries of rou- 
tines. At the time of writing this col- 
umn, True BASIC Inc. announced 
True BASIC, Version 2. One of its high- 
lights is the introduction of modules! 
I will discuss True BASIC modules in 
my next column, once I obtain more 
information on the exact syntax and 
features. I will also discuss any as- 
pects of similarity between library 
modules in True BASIC 2.0 and 
Modula-2. Although BASICA does not 
support explicit libraries, you may 
want to consider creating external li- 
braries that contain your favorite 
and frequently used routines. 

BASICA programs that use low-level 
features (DEF SEG, VARPTR) translate 
easily into QuickBASIC. True BASIC 
does not support such machine-spe- 
cific statements, however, because 
they make programs less portable to 
other machines. For the same reason, 
the valuable SHELL( ) statement 
found in both BASICA and QuickBASIC 
has no similar implementation in 
True BASIC. The Developer’s Toolkit, 


offered by True BASIC Inc., does pro-. 


vide several low-level access routines 
for the IBM PC implementation. 
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High-resolution graphics is another 


~area in which BASICA programs need 


more effort to be converted into True 
BASIC. I think that True BASIC’s built- 
in graphics features are superior to 
those of BASICA. For example, True 
BASIC supports the PICTURE type of 
routines, special kinds of subroutines 
that make animation of objects easy. 

File I/O is very similar in BASICA 
and QuickBASIC. True BASIC uses a 
slightly different syntax and organi- 
zation, which means additional edit- 
ing of converted BASICA programs. 
The LPRINT statement in BASICA is not 
supported by True BASIC. Instead, 
you must open a buffer for the print- 
er (for example, OPEN #<Buf_Num> 
: PRINTER) and then send all the print- 
er output using “PRINT #<Buf 
_Num>” statements, similar to file 
output. In translating BASICA pro- 
grams, you must insert the OPEN 
statement and replace every LPRINT 
with “PRINT #<Buf_Num>:”’. 

Error handling in BASICA and 
QuickBASIC is also similar, both using 
the ON ERROR GOTO and RESUME 
statements. QuickBASIC uses labels to 
direct the program flow to error han- 
dling sections. True BASIC uses a dif- 
ferent and more structured mecha- 
nism—a WHEN ERROR 
IN...USE...END WHEN construct. 
The code section suspected of gener- 
ating errors is located in the WHEN 
clause and the exception handling 
code in the USE clause. By enclosing 
the suspected code portion in the 
WHEN clause, the extent of error 
trapping is most noticeable. 


Interdialect Translation 
Listing One, page 88, presents a BA- 
SICA utility program. The user types 
in the number and names of data 
files containing text. This is followed 
by several search strings, with the 
options of simply locating or replac- 
ing strings with others. The entire set 
of strings is used in text manipulation 
with each file. The program prints 
the text lines found or altered and 
writes back the text files to update 
them. The replace mechanism is 
fully automatic and has no query 
option. 

Using the BASIC converter from 
True BASIC Inc., I converted the BA- 
SICA program. Listing Two, page 89, 
shows the True BASIC version after 
manual editing that was needed to 





make the program function. The 
converter inserts several lines at the 
beginning of the original BASICA list- 
ing. These include the use of the def- 
lib.tru library, which contains True 
BASIC functions that clone certain BA- 
SICA functions, listed in lines 25 and 
26. Three author functions are de- 
fined within the converted program. 
The Eofl ) function is used by the util- 
ity. The OPTION BASE 0 is also used 
and does not conflict with my pro- 
gram. Notice the following changes 
made either by the converter or by 
hand coding: 


1. The original DEFINT declaration is 
rendered passive by converting it 
into a comment. 

2. Each dot character used in the 
name of a BASICA variable is replaced 
with two underscore characters. 

3. BASICA program lines containing 
multiple statements are broken 
down into single statements per line 
in True BASIC. 

4. Linserted line 1945 to open a buff- 
er for printer output. All BASICA 
LPRINT statements were flagged by 
the converter. I changed each LPRINT 
into print #9 :. 

5. The BASICA SPC( ) function is re- 
placed by REPEAT$(“ “,<number>) 
to produce the same effect. Using 
TAB( ) is another alternative. 

6. The converter moved the BASICA 
END statement from line 3000 to the 
very end and replaced it with a stop. 
In True BASIC, there must be one and 
only one end statement at the end of 
the program. If I manually replace 
the stop with end, all the subsequent 
subroutines become external (the 
current end location makes them in- 
ternal). The difference between in- 
ternal and external subroutines is in 
the scope of variables. Internal rou- 
tines access all the variables of the 
main program, but external routines 
do not. Library files containing noth- 
ing but external routines must begin 
with the keyword EXTERNAL. 

7. I edited the OPEN statements for 
file I/O to add the create old clause, 
which indicates that the file must al- 
ready exist. 

8. I added the erase #1 in line 9015. 
This erases the contents of the file be- 
fore I write back to it. Unlike BASICA, 
True BASIC does not allow you to 
overwrite existing text, so you must 
erase a file before updating its 
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Windows, Data Entry, Help Management, Menus, 
Text Editing, plus ... 
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The Vitamin C Difference 


With Vitamin C, your applications come 
alive with windows that explode into view! 
Data entry windows and menus become a snap, 
and context sensitive pop-up help messages 
are nearly automatic. 

With VCScreen, you'll save time by inter- 
actively painting windows and forms so what 
you see is what you get! Then, one button 

_generates C source code ready to plug into 
“your program and link with Vitamin C. 

Easy enough for the beginner. Versatile 
enough for the professional. Vitamin C’s open- 
ended design is full of “hooks” so you can 
intercept and “plug-in” special handlers to 
customize or add features to most routines. 

Of course, Vitamin C includes all source 
code FREE, with no hidden charges. /t always 
has. That means you'll have everything you 
need to adapt to special needs without spending 
hundreds of dollars more. 


Create as many windows as you like with 
one easy function. Vitamin C automatically 
takes care of complicated tasks like saving 
and restoring the area under a window. 

Options include titles, borders, colors, pop- 
up, pull-down, zoom-in, 4-way scrolling, scroll 
bars, sizes up to 32k, text file display & editing, 
cursor display, and more. 

Unique built-in feature lets users move and 
resize windows during run-time viaa definable 
key. 

Access the current window by default ora 
specific window any time, even if it’s hidden or 
invisible. Save and load windows on disk for 
more versatility! 


Data Entry 


Flexible dBase-like data entry and display 
routines feature protected, invisible, required, 
and scrolling fields. Picture clause formatting, 
full color/attribute control, selection sets, single 
field and full screen input, and unlimited data 
validation via standard and user definable 
routines. That means you aren't locked into 
one way of doing things. 

Vitamin C even provides true right-to-left 
input of numeric fields with dynamic display of 
separators & currency symbols. 





Vitamin C 


It’s good for your system! 


High Level Functions 


Use our intergrated help management, 
multi-level menus, and text file routines, or 
build your own handlers using Vitamin C’s basic 
windowing and data entry routines. 


Standard help handler provides context 
sensitive pop-up help messages any time the 
program awaits key strokes. The help text file 
is stored on disk and indexed for quick access. 
So easy to use thata single function initializes 
& services requests by opening a window, 
locating, formatting, displaying, and paging 
through the message. 


Multi-level ‘‘Macintosh”’ & ‘‘Lotus”’ style 
menus make user interfaces and front endsa 
snap. Menus can call other menus, functions, 
even data entry screens, quickly and easily. 





Text editor windows can be opened for 
pop-up note pads, memofields, or general pur- 
pose editing. Features include insert, delete, 
word wrap, and paragraph formatting. 


VCScreen 


Screen Painter/Code Generator 


Just as Vitamin C’s reusable functions speed 
your programming, VCSreen makes it even 
faster and easier by automatically generating 
C source code for your data entry screens! 

With VCScreen’s interactive screen editor, 
you actually draw your forms. You can define 
input, output and constant fields, headings, 
boxes, lines and even a window for the form to 
run in. 

What you see is what you get. If you don't 
like the position of an object, just “pick it up” 
with the cursor and move it! Changing colors, 
attributes, copying, and deleting is just as 
easy. 

VCScreen generates readable C source 
code. It declares variables with names you 
provide and can even generate structures. 

With VCScreen choosing the right functions, 
parameters and sequences, and Vitamin C 
supplying the functions to choose from, you can 
stop worrying about semi-colons, matching 
braces, andcalling conventions and concentrate 
on creating your application! 
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STRUCTURED PROGRAMMING 
(continued from page 121) 


contents. 

9. Each assignment statement in 
True BASIC begins with the keyword 
let. It is mandatory in Version 1, but 
the new Version 2 enables you to is- 
sue a directive and make the let 
optional. 


Listing Three, page 91, shows a 
True BASIC version that differs from 
that in Listing Two in the following 
ways: 


1. No line numbers are used. 

2. Some of the tests in the IF... THEN 
constructs have been reversed to 
make use of the multiline THEN and 
ELSE Clauses and to bypass the need 
for line numbers. 

3. Subroutine CALLs are used instead 
of GOSUB. I have deliberately used ar- 
gument lists to give a sense of struc- 
tured code. I could have made the 
subroutines parameterless and their 
code access global variables. 

4. The BASICA NOT EOF( ) test used in 
detecting the end of file is replaced 
with the True BASIC MORE #1 func- 
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The POLYTRON Version Control System (PVCS) allows programmers, project 
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Flexible Source Code Revision 


| tion, which performs the same task. 


Listing Four, page 92, shows the 
first QuickBASIC version of the BASICA 
utility. | wrote it to demonstrate the 
following QuickBASIC features: 


1. No line numbers. 

2. The GOSUB statements are fol- 
lowed by alphanumeric labels. The 
corresponding labels are located at 
the start of each subroutine. This 
QuickBASIC looks slightly more mod- 
ular than its parent BASICA versions. 


Listing Five, page 94, shows the sec- 
ond, more structured QuickBASIC 
version. The GOSUB statements are 
replaced by subroutine CALLs. The 
argument lists of the subroutines are 
identical to those of True BASIC in 
Listing Three. Listings Three and 
Five show strong similarities be- 
tween QuickBASIC and True BASIC 
with respect to program segmenta- 
tion. This gives you a feeling that 
both QuickBASIC and True BASIC real- 
ly promote more structured code. 
Compared to Pascal, these BASIC dia- 
lects retain simple data types with 
the declaration of variables limited to 
arrays. Compared to FORTRAN, they 
represent a true challenge because 
they offer many of FORTRAN IV and 
FORTRAN-77’s features. 

I have focused on the one-way 
translation of programs written in 
BASICA to QuickBASIC and True BASIC. 
In a future column, I will look at the 
two-way translation between Quick- 
BASIC and True BASIC programs. I also 
plan to look at Better BASIC, another 
“new wave’ BASIC dialect, which I 
have not discussed this time because 
of space limitations. 


Availability 

All the source code for articles in this 
issue (except C Chest) is available on a 
single disk. To order, send $14.95 to 
Dr. Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063 or call (415) 
366-3600 ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kapro). 
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PRODUCTIVITY! SCREEN MANAGEMENT SYSTEM 


SUBSTANTIALLY REDUCE APPLICATION DEVELOPMENT TIME! 
Save valuable time by avoiding the tedious, time consuming process of writing 
screen handling source code. screenplay’s easy-to-use panel painter allows you to 


create I/O panels, pop-up help windows or menu panels which you use in your program. 


FLEXIBILITY IN PANEL PAINTING; FLEXIBILITY AT RUNTIME! 

True screen handling flexibility is yours with screenplay, because you can override 
default panel settings to design practically any type of panel imaginable! screenplay 
continues to provide the flexibility you need during the operation of your program by 
allowing you to change just about any panel characteristic at runtime. 

PROTOTYPE PANELS BEFORE YOU WRITE CODE! 

With screenplay, you can prototype your draft screens before you write a single 
line of COBOL source code. These can then be reviewed with your boss or your 
customer for final approval, before you start writing source code. 

MORE THAN ONE LINKING OPTION! 

In addition, linking screenplay’s runtime unit is your choice! You can link 
screenplay by interrupt or directly to your application. And if your compiler doesn't 
allow a direct link, you can take advantage of a dynamic load option for linking 
screenplay to your application. 

FULL CONTROL OVER KEY ASSIGNMENT! 

You can assign practically any keyboard key to serve as a specific cursor function 
and define exactly which keys will return control to your application. screenplay gives 
you the power to entirely reconfigure the keyboard for your program. 

POWERFUL, ONE-STEP PANEL PAINTING 

screenplay’s panel painting process is a "one-step" approach. There’s no need to go 
through a separate process to establish fields on your I/O panel. What’s more, you can 
use any ASCII character in your screenplay panels. You also have full control over 
character attributes such as foreground and background color, intensity and blinking. 
EASY PANEL FILE MANAGEMENT! 

Panels are stored in an ASCII file which is compressed to save memory and disk 
space screenplay’s Panel Management Facility allows you to easily copy panels across 
and within files, rename panels, delete panels, test and print panel details. You can 
even print an image of the panel for your documentation! 

NO ROYALTIES / NOT COPY PROTECTED! 

screenplay’s panel control runtime unit, better known as The Panel Control Facility 
may be linked to your program without paying a dime in royalties. In addition, 
screenplay isn’t copy protected to make it even easier-to-use. The Panel Control Facility 
allows you to control almost every panel characteristic by using parameters. 

SUPPORTS MANY COBOL COMPILERS! 
Supports IBM COBOL, Microsoft COBOL, Realia COBOL, Ryan-McFarland COBOL 


and Ryan-McFarland COBOL 8X; List Price $175.00, OUR PRICE $155.00 
Development 
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FOR PROFESSIONAL 

PROGRAMMERS 
Quelo Cross Assembler Packages are Motorola compatible. 
Each package includes a macro assembler, linker/ 
locator, object librarian, utilities for producing ROMable code, 
extensive indexed typeset manuals and produces S-records, 
Intel hex, extended TEK hex, UNIX COFF and symbol cross 
references. Portable source written in “‘C”’ is available. It has 
been ported to a variety of mainframes and minis including 
VAX, Sun, Apollo, Masscomp, and Charles River. Native ver- 
sions available for Amiga and Atari ST. 


68020 Cross Assembler Package 
Supports 68000, 68010, 68020, 68881and 68851. 
For CP/M-68K and MS/PC-DOS, $ 750 
68000/68010 Cross Assembler Package 
For CP/M-80, -86, -68K and MS/PC-DOS, $539 


68000/68010 Simulator 
For MS/PC-DOS by Big Bang Software, Inc. 


SIM68K is a cost-effective software simulator for de- 
bugging 68000/68010 code on an IBM-PC or compatible, 
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is at hand 


HELP 


HELP/Control™ — an on-line help system for the IBM-PC. HELP/Control 
includes HELP/Runtime, HELP/Popup and our help screen compiler. 


With HELP/Runtime, a few simple subroutine calls add context sensitive on- 
line help to your application. HELP/Runtime includes tested interfaces for C 
(Microsoft and Lattice), Pascal (Microsoft and Turbo), IBM BASIC (Interpreter 
and Compiler), Microsoft FORTRAN, COBOL (IBM and Realia) and assembler. 


Use our concise screen definition language to build your help files. You define 
the bold captions on your help screens and specify the links to other screens. If 
you have existing documentation files, it’s easy to mark them up to get on-line 
quickly. You can put an entire user or reference manual on-line, completely 
accessible to the user at all times. 

HELP/Popup provides memory resident access to your custom help screens. 
The complete package (software, on-line manual, printed manual, and demo 
programs) costs $125.00 and includes a royalty-free license to add 
HELP/Runtime to your applications and a license to make 25 copies of 
HELP/Popup. 
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Double Your C Language 
Programming Productivity 


Instant-C is an incremental compiler for C that makes every aspect of C 
programming as fast as possible. Load your existing C source code into 
Instant-C. Whenever you change your code with Instant-C’s built-in full-screen 
editor, only the changed portions of your programs are recompiled. The 
fully automatic compilation process rachidas linking of your multiple 
modules, and therefore takes no link time. Instant-C compiles more than 
twice as fast as normal compilers. More importantly, compile time is 
proportional to how much code you change, not to the size of your entire 
program. With Instant-C, you will be running your program within a few 
seconds after editing a change. 


Instant-C’s over 350 precise diagnostic messages help you understand 
immediately how to fix the problem. Instant-C shows any errors on the 
editor screen, with the cursor placed exactly at the trouble spot. 


Instant-C runs your program at compiled speeds with full run-time checking 
of pointer references and array indexes. Run-time checking catches prob- 
lems as they occur, when they are easiest to fix and understand. This 
checking reduces the number of times you need to modify and test your 
program. 


Instant-C has the best testing and debugging capabilities available. You have 
full access to the C language and to your program. At any time you can 
examine or modify variables (including pede evaluate expressions or 
macros, and call functions interactively. You can examine and change your 
code, then resume execution. Use any number of conditional breakpoints. 
Instant-C’s visual debugging shows your source code, highlighting the line 
being executed. Instant-C supports multiple screens, virtual screens, and non- 
standard graphics devices. Instant-C’s data monitor stops execution when 
specified variables or memory areas are changed. 


Instant-C is compatible with Lattice 2.x, 3.x and Microsoft 3.0, 4.0. Get 
Instant-C’s superb debugging, run-time checking, and incremental 
compilation to double your C programming productivity. 
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ARTIFICIAL INTELLIGENCE 


Object-Oriented Programming 


he theme for my next few col- 

umns will be object-oriented 
programming in AI. This is a rather 
vast but very hot topic, and I'll ap- 
proach it from a few different van- 
tage points. As mentioned in the pre- 
vious column, _ object-oriented 
languages represent a programming 
paradigm, which is a much more sig- 
nificant development than just an- 
other new programming language or 
programming technique. Most pro- 
gramming languages to date have 
been for programming in a single 
paradigm, that of procedural pro- 
gramming. Because all programmers 
already know this paradigm, I will 
concentrate on the newer ones. 

As I see it, object-oriented program- 
ming is not a direction that is entirely 
new and without precedent in com- 
puter science; rather, it takes various 
developments in programming lan- 
guages to their next logical step, for 
reasons of clarity, modularity, and 
programming efficiency. In one 
sense, you can think of object-orient- 
ed programming as the program- 
ming paradigm that takes structured 
programming to its natural logical 
conclusion. In structured program- 
ming, variables can be local to a par- 
ticular procedure and these proce- 
dures typically pass arguments such 
as strings and numbers between 
them. With object-oriented systems 
all this is taken much further. Vari- 
ables are no longer local just to proce- 
dures. The main building blocks are 
now objects—protected areas of sys- 


by Ernest R. Tello 


tem memory—which can have both 
local variables and local procedures. 
Moreover, the building blocks do not 
communicate with one another just 
by passing arguments. The proce- 
dures themselves, usually called 
methods, which are local to objects, 
are actually the messages that are 
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sent and received by objects. In this 
respect, objects resemble smaller 
computers within the host comput- 
er, each with their own data and 
code areas. 

Most object-oriented systems have 
at least two different types of objects: 


classes and instances. Classes may 


have a logical relation between one 
another such that one might be the 
subclass or superclass of another. 
Generally speaking, the superclass is 
the more abstract class and the sub- 
class is the more specific. So, for ex- 
ample, if you created the class Furni- 
ture, then you could create the class 
Chair as the subclass of Furniture and 
Desk-Chair as a subclass of Chair. In 
this example, Furniture would be the 
superclass of Chair, which is in turn 
the superclass of Desk-Chair. 
Object-oriented systems have at 
least three obvious advantages. One 
very nice one is that, once you have 
written the code for a class, you can 
have as many instances of that class 
present in the system at the same 
time as memory will allow. A class is 
simply a template on which each in- 
stance is modeled and provided with 
its own area of memory that cannot 
be accessed by any other object ex- 
cept by using the object’s own local 
methods. So, for example, this means 
that, in an object-oriented system, 
you can have as many graphics pens, 
windows, editors, interpreters, and 
so on as you like copresent without 
any fear that they will interfere with 
one another. The second advantage is 
that, through the mechanism of in- 
heritance, subclasses automatically 
share all the variables and methods 


of their superclasses. This means that 
you can write greater and greater 
specializations of functions just by 
adding the part that is unique—the 
rest is inherited automatically. The 
third immediate advantage is that 
you can provide a uniform interface 
over the widest possible range of ob- 
ject types because you can use the 
same name for methods of different 
objects that have to be implemented 
differently, and this action can re- 
main invisible to the user. So, for ex- 
ample, you might create different 
classes for a variety of different geo- 
metric polyhedra. Then, for each 
separate class, you would define the 
methods volume and surface area. 
The actual formulas and their imple- 
mentations would vary, but the call- 
ing names would all be the same. 
Then you could say Tetrahedron-1 
volume or Cube-3 volume, and in 
each case methods would be invoked 
that returned the value of the object's 
volume. 

Some people say that the key ad- 
vantage of object-oriented program- 
ming is the ability to reuse code for 
many different programs. But in it- 
self this is not significantly different 
from library functions. The real dif- 
ference is an improved ability to han- 
dle complexity in a transparent man- 
ner. An advantage of object-oriented 
programming that is not necessarily 
immediately obvious—but which ex- 
perienced programmers who have 
worked with these systems will near- 
ly always testify to—is that object-ori- 
ented languages give you more lever- 
age in working on very large 
programs. This does not come for 
free, though, and it’s not guaranteed. 
Factoring a large program into the 
right parts is a large part of the battle. 
It is also necessary to learn the right 
techniques for managing the code 
and making life easy for the mem- 
bers of a programming team. Object- 
oriented systems are usually diffuse, 
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Introducing TransLISP PLUS ' The Consultant’s LISP 
Over 400 Primitives, a C Interface, and Optional Runtime System 


People call you because you’re an expert. Your customers want to keep up with what’s going on. They want software that is more intelligent 
and responsive, or software that does something that just wasn’t possible before. So they call you. 


Now you can write and deliver a whole new category of software with TransLISP PLUS, a practical, efficient LISP system. You can also 
add Artificial Intelligence to your software. We include several features, like a C Interface and Optional Runtime System, so you can 
control the performance and security of your programs. And your users only need to have a PC (can even be non-compatible) with 320K 
and | floppy drive. Now, what could you write for a $700 PC? .. . . or a $7000 PC?... 


Add AI Technologies to 
Your Software 


Most of the programs you write are accessed 
by a user who doesn’t have your expertise. 
Use intelligent interfaces to make your pro- 
grams more responsive to the end user. 

You can even use the C Interface included 
with TransLISP PLUS to customize LISP, or 
combine C functions with LISP programs. 

Take advantage of AI technologies to make 
your programs smarter and more flexible. 


Extensive Development 
Environment 
Over 400 Primitives 


TransLISP PLUS provides you with over 400 
primitives for development, including extras 
for hardware support and operating system 
access. Their spectrum ranges from control 
constructs, macros, and special forms, to 
multi-dimensional arrays, reader support for 
binary, octal, and hex constants, improved 
list processing, and system interrupts. 

DOS commands and applications can be 
invoked from within TransLISP PLUS, as 
can the fast editor. Of course, you can use 
your own editor if you like. 

A variety of debugging tools are provided. 
The trace facility tracks the evaluation of any 
built-in or user-defined function or macro. 

Traceback, Break, Cross Reference, and 
Pretty Printer are also provided to help you 
spot problems. 
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The ONLY Full Featured 
Common Lisp with a 
C Language Interface 


The best of both worlds. The interface to 
Microsoft C gives you a powerful extension 
to TransLISP PLUS — now you can write code 
in LISP and C. And you don’t need an AT, 
it will run on your PC! 

The C Interface makes it practical for you 
to write a C program and add it as a new func- 
tion to TransLISP PLUS. Your function can: 

* extend and/or change the LISP syntax 
* be an entire system of programs 

Create your own BUILT-IN primitives which 
are directly tied to the system and called at 
full speed by the interpreter. Extend the 
functionality of your program by including 
features of your own like macros, functions, 
and special forms. 

Code from C libraries produced by other ven- 
dors can be integrated into your program to 
perform tasks not normally part of LISP. 


Use PLUS for Your 
Applications. No Royalties. 


Once you own TransLISP PLUS, you may 
want to use it to distribute applications. No 
problem. 

The Optional TransLISP PLUS Runtime 
supplies you with a special interpreter. You 
can distribute an executable version of your 
program without distributing source code. 

The Runtime is available for $150 and Trans- 
LISP PLUS is required. 


Try TransLISP PLUS ($195) for 30 days — if not 


Satisfied get a full refund. 


. Use your existing 


Don’t Know LISP? 


Get a solid understanding of LISP with the 
comprehensive, easy-to-understand tutorial. 
Each section walks you through a new concept 
and reinforces it with examples — both text 
and online. 

Over 30 demo programs supplement the tuto- 
rial. Use them for an in-depth introduction 
to LISP programming techniques. Commented 
source is included so you can see how and 
why the program operates. 

The demos cover a wide variety of applica- 
tions including: Select a word processor, Read 
dBASE SDF files, Job Counselor, and many, 
many more. 


The Fundamentals 


If you are interested in learning LISP but don’t 
need all the extras in TransLISP PLUS, order 
TransLISP for $95. It’s a full, easy-to-use 
introduction to LISP that includes the tutorial 
and demo programs described above, and over 
300 primitives. 

It is a solid subset of COMMON LISP; and 
you can write programs of up to 12000 lines. 


COMMON LISP Standard 


Programs written carefully with TransLISP PLUS will be completely 
“portable” to any other COMMON LISP System on a micro, mini, 
Or mainframe computer. This allows you, for example, to write a 
program with TransLISP PLUS on your PC at home, and compile 
and run it on the VAX at work. 


System Requirements 
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drive. 
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ARTIFICIAL INTELLIGENCE 
(continued from page 126) 


with parts of applications being dis- 
persed among a large number of 
classes and subclasses. To program 
efficiently with such a system, it is 
essential to have the proper tools and 
an effective method for keeping the 
application well focused and well 
organized. 

It is important to point out that ob- 
ject-oriented programming cannot 
be regarded as an easy thing to pick 
up rapidly, as it is a totally different 
paradigm from the one to which 
most programmers are accustomed. 
As programming approaches go, it is 
a knowledge-intensive one. In other 
words, the readily available modular 
code is only useful providing that 
programmers know what they have 
available to them and how it may be 
best used. Many programmers resist 
learning new languages, not to speak 
of new programming paradigms, so 
it is important to spell out again in 
clear-cut, pragmatic terms just what 
the real advantages are to program- 
ming with objects. As I see it, there 
are four main ones: 


1. standard calling conventions for a 
broad range of operations that exhib- 
it differences in behavior, as do varia- 
tions on a theme 

2. a means of managing very large 
programming projects by breaking 
up large problems into smaller, inde- 
pendently functioning, highly visible 
parts 

3. a truly modular programming en- 
vironment in which redundancies in 
coding are kept to an absolute 
minimum 

4. the ability to spawn multiple in- 
stances of a given function or object 
from the same code without the 
codes for the instances interfering 
with one another 


Object-Oriented LISP: 

An Overview 

Although Smalltalk was the first true 
general-purpose object-oriented lan- 
guage, and implementations such as 
Digitalk’s Smalltalk/V are specifically 
aimed at AI applications, the main 
uses of this programming paradigm 
so far in AI have been with object- 
oriented LISP. The reason for this is 
probably because people in the Al 
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field are most familiar with LISP. 

The most interesting things that 
have occurred with object-oriented 
LISP are some of the clear innovations 
it has made in object-oriented pro- 
gramming generally. Not only did 
LISP have little difficulty absorbing 
the object-oriented paradigm but also 
it introduced some important inno- 
vations to this programming ap- 
proach as it did so. I would like to dis- 
cuss three innovations’ in 
particular—mixins, method combi- 
nation, and multimethods. The mixin 
feature is the LISP version of multiple 
inheritance, which consists of the 
ability to create a new class that in- 
herits from more than just a single 
superclass. In effect, it means the 
ability to build an object hierarchy 
that can be a network or tangled hi- 
erarchy rather than just a simple 
tree. Although multiple inheritance 
is theoretically present in the latest 
release of Smalltalk-80, it was an af- 
terthought in this language and has 
nothing close to approaching the 
readily usable and trouble-free oper- 
ation of mixins in object-oriented 
LISP. 

Method combination is a bit more 
difficult to explain than mixins but is 
no less important. The first appear- 
ance of user-defined method combi- 
nation in LISP was with Symbolics’ 
Flavors system. This system does not 
just copy the approach to method 
combination used in Smalltalk but in- 
troduces a new approach. The Fla- 
vors implementation lays stress on 
the order in which components are 
combined to produce a flavor. This is 
particularly true with methods, the 
procedures that are local to flavors. 
The heart of the Flavors system is the 
way the methods of various compo- 
nents are combined. The problem is 
this: if you define a flavor that inher- 
its from several other flavors or class- 
es, each of which have their own spe- 
cialized versions of the same 
message, then how will the method 
for this new flavor be constructed? 
The Flavors system offers a variety of 
ways for combining methods and 
even provides for user-defined meth- 
od combinations. It is designed so that, 
if you want to, you can define entire- 
ly new ways of combining methods. 

The default for method combina- 
tion in Flavors is to ignore all but the 
latest implementation of the method, 


meaning the one defined in the most 
specific of the flavors from which 
the new flavor will inherit. If you de- 
cide to define an entirely new meth- 
od for the new flavor, then all the 
others will naturally be overridden. 
The general format for the more 
complex types of method combina- 
tion in Flavors is for one flavor to be 
selected to provide the primary 
method and for any other flavors to 
provide what are called daemon 
methods. The primary method has 
control of handling the main func- 
tion associated with the message, 
whereas the daemon methods are re- 
sponsible for subsidiary tasks. 

Flavors has two kinds of daemon 
methods—before and after. The ter- 
minology is derived from the order 
in which the method functions are 
called. The basic way that combined 
methods work is that they first call all 
the before methods, then the prima- 
ry method, and finally all the after 
methods. Each of these component 
methods is passed the same argu- 
ments in turn as were passed to the 
combined method. Only the values 
returned by the primary method 
will be returned by the combined 
method, however. All values re- 
turned by the daemon methods are 
ignored. If there is more than one be- 
fore method, then the before meth- 
ods are called in the same order as 
that in which the flavors are com- 
bined, whereas after methods are 
called in reverse order. 

What is the point of these method 
combinations? They can have a vari- 
ety of different uses, but one of the 
most obvious is to provide an addi- 
tional type of modularity that cap- 
tures the whole spirit of the object- 
oriented approach. With method 
combination, if you can’t find all you 
want for a flavor method in any of 
the flavors from which it will be in- 
heriting, yet part of what you wantis 
available, then method combination 
can often save you from having to re- 
write the entire function from 
scratch. What you can do is select a 
method to inherit that can serve as 
your primary method. Then you just 
write the before and after methods 
that can be added to this primary 
method to produce the desired re- 
sult. Naturally this won't be possible 
in all cases. It will work only in situa- 
tions in which the function desired 
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can be combined from several sepa- 
rate functions. You will find that this 
applies to a surprisingly large num- 
ber of cases, however. 

Multimethods, a capability first 
made available in CommonLoops, 
could well be the most important 
contribution object-oriented LISP has 
made so far to object-oriented pro- 
gramming. Multimethods are func- 
tions that can be considered as mes- 
sages to any number of types of 
objects. Prior to the development of 
multimethods, object-oriented LISP 
made a distinction between the ob- 
ject to which a message was sent and 
the arguments to the message proce- 
dure. So, in the expression: 


(send Rectangle draw-at 10 40) 


the class Rectangle is solely responsi- 
ble for recognizing the message and 
is distinguished from the numbers 10 
and 40, which are arguments to the 
draw-at message. This is somewhat 
artificial, for in Smalltalk numbers 
are treated as instances of the class 
Number and arithmetical operations 
such as multiplication are considered 
as messages to the numbers to mullti- 
ply themselves. Multimethods take 
this even further by considering the 
class to which a message is sent as just 
another one of the arguments. In 
principle any number of arguments 
can be passed to a multimethod, and 
each of the arguments is an instance 
of its own class. So a multimethod is 
really a message to an indefinite 
number of objects, with the method 
combination required to complete 
this message determined by the actu- 
al arguments used. 

One “problem” with object-orient- 
ed LISP is that it is just too popular for 
its own good. It has become a favorite 
tool not only for programming AI ap- 
plications but also for systems pro- 
gramming and developing user inter- 
faces. The result of this diversity is a 
somewhat conflicting set of require- 
ments for users of different types. 
Systems programmers and those de- 
veloping user interfaces and ad- 
vanced graphics applications are 
usually interested in high-perform- 
ance, bug-free code. AI researchers 
are willing to trade some perform- 
ance for greater flexibility and 
generality. 

What are some of the primary con- 
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siderations in using object-oriented 
LISP for AI purposes? As I have al- 
ready suggested, certainly one of the 
most important is the dynamic be- 
havior of class systems. This refers to 
the ability of an object system to 
change dynamically to reflect chang- 
ing circumstances in the world. In 
many AI programs. it is of consider- 
able importance that the system be 
able to update itself automatically to 
a greater or lesser degree. It is helpful 
to consider what this implies. 

A minimum condition for such an 
automatic system is to keep a run- 
ning tally of all the system's current 
objects of various kinds in a form that 
is easily accessible. In LISP this gener- 
ally means maintaining a list of such 
items and being able to update the list 
as necessary. More specifically, it is 
necessary to be able to access at any 
given time all the instances that are 
currently alive and know their class- 
es. If the system does not already do 
this in some way, then it is essential 
that it at least support the minimum 
functions that would allow these fea- 
tures to be implemented. 

Closely related to this requirement 
is the ability to write functions that 
can create new objects with names 
that are determined only at run time. 
Although this may sound trivial, in 
LISP it is easy to create new objects by 
programming them with names the 
programmer specifies in the code, 
but it is not nearly as straightforward 
to write functions that automatically 
create objects when needed with 
names that have to be specified at the 
time. Compared with this, ‘‘uncreat- 
ing’ objects is relatively trivial. If 
there is no function corresponding to 
remob in use, then it is still always 
possible to make a new object with 
the same name as the uncreated one 
and set it equal to nil. 

Such functions are necessary for 
creating what are known as compos- 
ite objects, for example. These are ob- 
jects of a complex structure that con- 
tain other objects as parts. So, for 
example, a desk object could be de- 
scribed as a composite object com- 
posed of a top, legs, and drawers. In 
such a case, the components might 
well be instances of classes in their 
own right. To create a composite ob- 
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ject automatically, therefore, would 
involve naming and creating all those 
instances that are parts of the 
composite. 

In a sense, the parts of a composite 
object can form another hierarchy 
that can exist alongside the abstrac- 
tion hierarchy of classes containing 
the main composite object. The com- 
posite object approach seems to have 
real limits as far as creating very 
large hierarchies is concerned, how- 
ever. It is difficult to imagine creating 
very large systems such as spacecraft 
in any degree of detail. Are such sys- 
tems necessary? If you want to be 
able eventually to create deep sys- 
tems for diagnosing problems and 
predicting various consequences in 
emergency situations, or even for 
failure-mode analysis for design pur- 
poses, then such systems appear to be 
indispensable. 

Many LISP programmers are anx- 
ious for an object-oriented extension 
to Common LISP and wish there were 
already such a standard for the dia- 
lect. At the present time several LISP 
vendors have developed their own 
proposed extensions, which they 
hope will be adopted as the standard 
object-oriented extension to Com- 
mon LISP. 


In the Spotlight 
I asked some experts in object-orient- 
ed LISP both what they wanted to see 
happen and what they thought 
would happen in the quest to devel- 
op an agreed-upon standard for ob- 
ject-oriented programming in Com- 
mon LISP. Currently, there is an 
organized effort to develop such a 
standard with formal ANSI recogni- 
tion. Toward that end, a committee 
has been formed to draft a proposed 
standard that will then be made 
available to the programming com- 
munity for its feedback so that a true 
“community standard’ might 
emerge. The members of this object- 
oriented working group include Dan 
Bobrow and Gregor Kiczales of Xe- 
rox; David Moon, Dan Weinreb, and 
Sonja Keene of Symbolics; Richard 
Gabriel and Linda Demichael of Lu- 
cid; Jim Kempf of Hewlett-Packard; 
and Patrick Dussud of Texas 
Instruments. 

Gabriel is the president of Lucid, a 
vendor of Common LISP for a variety 
of different machines, and author of 





the book Performance and Evaluation 
of Lisp Systems (MIT Press, 1985). I 
spoke to him regarding the develop- 
ing standard for an object-oriented 
extension to Common LISP. Gabriel 
sees his own role as a kind of ‘“‘buffer 
zone’ to help mediate the potentially 
inflammatory relations between Xe- 
rox, advocate of CommonLoops, and 
Symbolics, advocate of New Flavors. 
Although Gabriel is not optimistic 
about the solution of many of the sub- 
tle problems in formulating an ade- 
quate standard rapidly, he feels that 
a reasonable standard is emerging 
that has many of the features of New 
Flavors ‘‘on the surface”’ while utiliz- 
ing much of CommmonLoops 
‘underneath. ” 

I asked Gabriel about some of the 
difficult issues involved in formulat- 
ing the new standard, such as the is- 
sue of dealing somehow with the fact 
that readable code is often not effi- 
cient and, conversely, efficient code 
is often not readable. Gabriel admits 
that this is a pervasive problem that 
will not go away easily. One difficul- 
ty is that often programmers who 
know the details of a given applica- 
tion can find various ways to exploit 
certain idiosyncrasies of the way it is 
coded to improve performance con- 
siderably. Tricks of this kind are obvi- 
ously specific to the particular appli- 
cation and are often opaque to 
another programmer reading the 
code. The main reason for this, ac- 
cording to Gabriel, is that ‘‘most effi- 
cient code uses side effects to a con- 
siderable degree.” Gabriel thinks that 
advanced knowledge-based systems 
for program optimization will ulti- 
mately be necessary to solve this 
problem. Another possibility is paral- 
lel LISP because, as Gabriel points out, 
“the programs with the least side ef- 
fects run fastest on parallel ma- 
chines.” Gabriel is currently working 
on Olisp, a parallel LISP language, 
with John McCarthy, the inventor of 
LISP. 

Another problem specific to object- 
oriented systems is that currently in- 
stances in most systems are strictly 
subservient to classes in that an in- 
stance object is always an instance of 
one and only one predefined class, 
which is used as a kind of template 
for creating the instance. This has a 
built-in bias for the abstract over the 
concrete, which could put a limit on 
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the type of object-oriented AI pro- 
grams that can be written. For exam- 
ple, it might be highly desirable in 
certain AI programs that an object be 
created that is not initially an in- 
stance of any particular class but that 
later on might be. One way around 
this would be to first make the object 
an instance of a neutral holder class, 
such as Object in Smalltalk or t in 
Common Loops, and have a provision 
for changing the object’s parent class 
at a later time. 

Another person I asked for com- 
ments about the object-oriented ex- 
tension to Common LISP was Gerry 
Barber, chief scientist at Gold Hill 
Computers, the main vendor for a 
subset of Common LISP on MS-DOS ma- 
chines. The main issues Barber and 
his group at Gold Hill seem con- 
cerned about are that the standard 
make use of those features that are 
well understood and trouble-free. In 
this respect, he has some doubts 
about the metaobject protocol that 
forms the heart of CommonLoops. 
Barber is apparently not as confident 
as members of the standards work- 
ing committee are that the metaclass 
approach that works so well in 
Smalltalk and CommonLoops is well- 
tested enough in the LISP environ- 
ment to find a place in the standard. 
He agrees that it would be desirable 
to have a system that has an inherent 
flexibility and generality, but “it is 
important,’ he says, ‘‘to find the right 
generality and the right flexibility.” 
Barber sums up the outlook at Gold 
Hill as follows: “Our strategy is to rely 
on things that have been shown not 
to have problems.’’ Regardless of 
whether the new standard is ready 
in time, Gold Hill plans to release its 
own object-oriented extension to 
Common LISP—a system that will 
probably closely resemble the Fla- 
vors system from Symbolics—early 
in 1987. 

The third person I spoke to on the 
same topic was Dan Bobrow of the 
Intelligent Systems Laboratory at Xe- 
rox PARC, considered by many to be 
the foremost authority on object-ori- 
ented programming in AI. Compared 
with Gabriel and Barber, Bobrow is 
most optimistic concerning the 
emerging standard for objects in 
Common LISP. He doesn’t feel that 
what has been reached so far is sim- 
ply acompromise between the Xerox 
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ARTIFICIAL INTELLIGENCE 
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and Symbolics proposals. He feels 
that what is happening is a genuine 
synthesis of the best ideas that are 
around right now in object-oriented 
LISP. To him, the atmosphere is not 
one of tension between competing 
proposals but rather a true profes- 
sional collaboration, much in the 
same spirit that produced the origi- 
nal Common LISP standard. 

I also asked Bobrow what some of 
the limitations might be with the 
emerging standard. Here again, his 
answers were positive. For example, 
I raised some of the issues I had dis- 
cussed with Gabriel, such as the need 
in advanced AI applications to be able 
to have the same object simulta- 
neously present in several different 
hierarchies. Here he felt certain that 
the new standard did not rule out the 
ability to program such applications. 
I also raised the issue of efficiency 
and trouble-free operation vs. adapt- 
ability and flexibility. Once again he 
was optimistic and indicated that it 
would indeed be possible to include 
different compilation options for dif- 
ferent uses of objects. This would 
mean, for example, that those pro- 
grammers using objects for systems 
programming and user interfaces, 
who are primarily interested in pro- 
ducing fast, unmodifiable, trouble- 
free code, could use one compilation 
and those who use objects in AI pro- 
grams that need to have greater flexi- 
bility and the ability to modify them- 
selves dynamically could use a 
different compilation option. In this 
way, both types of users could be 
satisfied. 

In my next column I'll continue the 
theme of object-oriented AI by focus- 
ing on some specific implementa- 
tions of object-oriented languages. 
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15 SUCCESS MANUALS that could solve your mone 





problems once and for all! 


FASTEST, EASIEST ... PROVEN PROFITABLE BUSINESSES YOU CAN QUICKLY START 
AND OPERATE FROM HOME WITH LOW OR NO CAPITAL. ..PART TIME OR FULL TIME... 





No experience required ... Nothing complicated to study ... Strictly legal and honest... 


Each beginners Success Manual is Guaranteed to teach you everything you need to know to succeed fast! The perfect answer for ambitious men and women.. 









1. FIFTY QUICK, EASY AND MOST UNUSUAL WAYS TO 
POCKET “GIANT DOLLARS!” 

Here's your chance to discover how so many folks miss 
out on numerous opportunities to pull in some big, fast 
cash. A most unique money-opportunity book which 
quickly shows you how just ordinary men and women 
from all walks of life are building spare time and full 
time fortunes; plus home businesses, money secrets, 
wealth-building methods, out-of-the-ordinary plans and 
odd blue prints to success, plus more. (only $6.95) 


11. HOW TO SIT BACK AND RAKE IN A BUNDLE 
SELLING BOOKS BY MAIL: 
Practically all mail order experts agree that absolutely 
nothing sells better by mail than books ... and there’s 
nothing that sells easier than books. Better yet — you 
stand to make bigger and faster net profits from selling 
| books by mail than you could realize on any other items. 
’ 1 You will be shown everything from A to Z. (only $6.95) 


12. HOW TO WIN BIG CASH AND VALUABLE 
PRIZES CONTESTS: 
This unique book quickly shows you all the important 


FIFTY QUICK, EASY AND MOST 
UNUSUAL WAYS TO 
POCKET “GIANT DOLLARS!” 











2. HOW TO STACK UP HUGE MAIL ORDER PROFITS — 
HAND OVER FIST WITHOUT BREAKING YOUR BACK 
(OR RISKING AN ARM OR A LEG) 

Shows you how to immediately set up — and get your 
operation off to a smooth flying start. Quickly teaches 
you short cut mail order fundamentals from A to Z. 
Crammed with insider “tricks of the trade” and revealing 
“money getting gimmicks.” Imagine yourself receiving 
envelopes containing hundreds of dollars or more a day 
every day — that’s the potential of mail order. (only $6.95) 


tests again and again. Cash, cars, homes, appliances, 
furs and vacations ... No other publication on the 
market exactly like it. (only $6.95) 


13. BIG FAST FULL TIME AND PART TIME 
PROFITS FOR WOMEN: 

This book is a remarkable treasury of unique but common 
sense, easy to operate Little “big” money making 
businesses for many millions of today’s serious and 
enterprising women interested in fabulous earnings, 
independence and security. Little or no investment and 
fast starting full- and part-time income increasing 
activities. (only $6.95) 


14, EASIEST AND FASTEST WAY TO START A SUC- 
CESSFUL MAIL ORDER BUSINESS ON A SHOESTRING: 
Simple, and most effective, step-by-step mail order start- 
up and operating instructions written especially for 
beginners. Crammed with vital facts ... Covers every 
aspect of this exciting big money field. (only $6.95) 


15. HOW TO SEE THE WORLD... 

TRAVEL AND GET PAID WELL FOR IT: 

Everyone enjoys traveling. But most people cannot 
afford to travel to those far away places they dreamed 
of visiting. Here’s your chance to take in the wonderful 
sights throughout the world — and actually get paid 
for doing it. Yes, it’s truly possible that this little 
known strictly legal method could provide you with the 
information for doing it. (only $6.95) 
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RETTY PROFITS FAST! 
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It’s a fact that millions of women (and men, too) own their 
own sewing machines ... and truly enjoy sewing. This 

peculiarly profitable book clearly demonstrates to them 
how to, virtually, turn their sewing machines into money 
making machines ... and take fast and full advantage 

of today’s most promising market conditions. Especially 
— considering the present sky-high prices. (only $6.95) 


4. HOW TO TURN YOUR TELEPHONE INTO A 
MONEY MAKING MACHINE: 

Right now your phone is only costing you money — 
but if you knew how to make it work for you, it could be 
making you money. Many people have heard about 
men and women making handsome incomes, via their 
telephone. But only a few people know exactly how it’s 





inside tricks. Opportunity to win national and local con- 
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SUCCESSFUL MAIL ORDER 





done. Complete easy-to-follow instructions. (only $6.95) 


5. HOW TO EARN A FISTFUL OF MONEY WITH 
NEWPAPER CLIPPINGS: 

imagine, earning good money by clipping articles from 
newspapers? This unusual book instructs you in straight- 
to-the-point, how-to-information. Fast starting operation 
by mail on a tiny shoestring capital. Unusual way to earn 
$50, $100, $300 or more, weekly. Ideal for ambitious 
Homeworkers, spare-time or full. (only $6.95) 





HOW REAL ESTATE CAN 

MAKE YOU A FORTUNE... 

USING OTHER “FOLKS 
MONEY" 


6. HOW REAL ESTATE CAN MAKE YOU A FORTUNE... 
USING OTHER “FOLKS MONEY:” 

Real estate has produced more millionaires than any 
other field. The plans inside this amazing fast, fortune- 
building book tells why and how, in easy-ABC fashion; 
learn how to let other folks money work for you; speculate 
in raw land and get back $5 for every $1 you put in; rake 
in huge profits on Uncle Sam’s losses; set up a nice 
income for yourself and your family with little or no 
investment. (only $6.95) 






THE AMAZING HOME WORKER'S 
WORK.AT-HOME 
SUCCESS GUIDE 

(For Men and Women) 







7. WORK-AT-HOME SUCCESS GUIDE 

(For Men and Women) 

Time and time again — successful spare time and full 
time businesses are made with out-of-the-ordinary 
methods; off beat money making ideas, prosperous home 
enterprises. Shows how plain every day folks from all 
walks of life can stack up good money. Here’s your 
opportunity to go after incredible wealth. (only $6.95) 


8. AMAZING MONEY MAKING TREASURY OF 1 & 2 
INGREDIENT FORMULAS THAT COULD PUT YOU ON 
EASY STREET 

This startling opportunity book places the little 
“beginner” operator with tiny capital in a most profitable 
position to manufacture sellable products. All prepara- 
tions require no more than two chemicals, many just one. 
All represent a popular best-seller kind of product with 
both genuine merit and wide sales appeal. No expensive 
equipment or facilities required. You can almost always 
pack everything from your kitchen. (only $6.95) 


9. WORLD’S EASIEST MOST PROFITABLE 

MAIL ORDER BUSINESS ... 

Arelatively uncrowded business that any man or woman 
can enter regardless of age. Book shows you how to start 
small, with ‘piggy bank’ capital and grow prosperous year 
after year. Reveals the surest, most profitable and safest 
items to sell by mail. Crammed with all the precious, 
easy-to-understand details. (only $6.95) 


WORLD'S EASIEST MOST 
PROFITABLE MAIL ORDER 
BUSINESS... 


TWELVE SIMPLE LITTLE-KNOWN 
WAYS TO MAKE 
81G MONEY FAST! 






10. TWELVE SIMPLE LITTLE-KNOWN WAYS TO MAKE 
BIG MONEY FAST! 

An amazing book that clearly reveals a dozen ways men 
and women could pocket some real fast cash profits — 
if they only knew the right wealth building moves to make. 
This book quickly teaches you all the necessary moves, 
shows you exactly how and what to do to help assure 
your success. (only $6.95) 
























Fifteen Ways For You To Have Bulging Bank Accounts, 
ISU te Oe ah Oat Mia cite 
eC ee Aes mete oe eC 
Plus, Keep A Steady Income Flowing In! 


Everyone of the 15 Manuals’ home-based businesses, can be 
successfully operated, by a single person, retirees, unemployed 
people — most ideal for husband/wife teams — and can be, almost, 
instantly turned into an enterprising family operated business, 
kids can help too. With everyone pitching in ... your business 
could suddenly take off, and profits could increase fast! 


More Businesses You Operate ... More Money You 


Make ... Guarantees You Riches Beyond Your 
Wildest Dreams! 


So, be sure to keep in mind that: Even though, it’s true — some 
good money could be made with just a single one of these 
start-up success manuals working for you. . . but, much better than 
that, you could give yourself a greater opportunity to make your 
profits multiply much faster, by simply putting together a 
super powerful profitable combination of five, ten, or more of 
these fifteen — fastest, easiest ... proven profitable businesses 
out of over a thousand in our files. Imagine having them all 
operating, and bringing in big hefty profits for you, at the same 
time! But you must send your order in right away. Supplies are 
extemely limited at these special introductory low prices! 


FREE The More Success Manuals You Order ' 
PVCU a Ree ee 


Buy Any 2 to 5 SUCCESS MANUALS And Get Free! Any 
One Of The Three LIMITED EDITIONS Below, or Buy 
Any 6 to 10 SUCCESS MANUALS And Get Free! Any Two 
Of The Three Below, or Buy Any 11 to 15 SUCCESS 
MANUALS And Get Free! All Three Below. 


HOW TO RETIRE YOUNG 
AND LIVE LUXURIOUSLY ON 
VERY LITTLE MONEY 


HOW TO RAISE ALL THE CASH 
YOU NEED IN A HURRY 


#0W TO QUICKLY 
WIPE OUT ALL YOUR DEBTS 
#ND TURN BAD CREDIT 
RATING INTO GOOD 


HOW TO RAISE 

ALL THE CASH YOU 
NEED IN A HURRY. 

If you need $5,000, $20,000, 
$100,000 or more to help 
get your new business off 
the ground — then, you'll 
most certainly want to read 
this book. Even if you’ve 
already been turned down 
by banks ... and finance 
companies. 


HOW TO QUICKLY 
WIPEOUT ALL 

YOUR DEBTS AND 
TURN BAD CREDIT 
RATING INTO GOOD! 
Now with this amazing 
book — you can stop bill 
collectors cold in their 
tracks. Here’s your golden 
opportunity to get out of 
debt without borrowing. 


HOW TO RETIRE 
YOUNG AND LIVE 
LUXURIOUSLY ON 
VERY LITTLE MONEY. 
Finally — It’s possible 
for you to say“goodbye” 
and “good riddance” to 
that old out-dated idea 
that you must remain on 
a boring nickel and dime 
wage slave, time-ciock 
punching job until you 
reach 65. 















FINALLY—A REAL OPPORTUNITY TO 
_ ENJOY A RICHER ... BETTER LIFE 


Our organization — Successful Business Publishers, 
offers what is perhaps the largest Collection of Unique 
‘Home-business’ Beginner’s Success Manuals in the 
world! Out of over a thousand of businesses in our 
organization's files —- our home business specialists, 
have painstakingly selected The 15 Fastest, Easiest 

.. Most highly Profitable part-time and fulltime 
Businesses you and other beginners can quickly start and 
easily operate from home — with very low or, virtually, 
no investment. 

How many of these Proven, Highly Profitable Enter- 
prises, can you combine together and successfully operate 
— and Benefit From At The Same Time? Possibly, all 
fifteen if you're that ambitious ... The big Shrewd 
Corporations, call this almost secret method ‘diversifi- 
cation’ which is, merely, a high sounding big word, which 
simply boils down to — having a lot of different busi- 
nesses, operating ... and pouring fast-fat profits 
into your pockets, at the same time. 

Let’s face it — Plain common sense says that — the more 


of these 15 Proven Profitable Businesses, you choose 


to operate at the same time ... the bigger, and faster 
your profits could be! Of course, our organization will 
profit a few more dollars if you choose to put five, ten 
or all fifteen of our proven profitable, start-up success 
manuals, to work for you. 

But then — why should our making a modest few 
dollars of profit bother you — when it’s you, who makes 

.. and keeps all the income — no matter how much — 
Your different home businesses bring in? The demand 
for our unique wealth-building, Beginners Start-Up 
Success Manuals has been so overwhelming ... and, 
understandably so too, since, there’s absolutely nothing 
like them on the market! 


Our No-Risk 
Success Guarantee To You 


You must be absolutely, positively, and totally 
convinced that the actual money making 
success profitability of each manual is real 

— and may quickly increase your income 

or you may return everything within 10 days 
for a prompt no hassle refund. 





Remember, those who snooze will certainly 
lose. However, those who choose right now, 
to begin — can win, and right now, while 
there’s still time, is the best time to begin. 
You'll be making a very wise and highly 
profitable move. ORDER NOW! 


CU ea 
Success Manuals Order Form 


i Circle the manuals you are ordering 

1 2438. 3.°0-7 "9 

9 10 1 12 #123 #14 «15 
| have circled above the catalog number of each Success 

; Manual | am ordering, and I’ve included the proper amount i 
to help cover shipping and handling, as indicated below. Also, 

i I'm fully protected by your organization's strong, no-risk 

success guarantee that - unless | am totally convinced that 

i the actual money making success profitability of my manual(s) i 
is real - and may quickly increase my income. Also, | may 

i return everything within 10 days, for a prompt, no-hassle, f 










full refund. 
Total Success Manuals Ordered i 
Full Amount Enclosed i 
Be sure to include proper shipping and handling fee - 
i see charges below: | 
SHIPPING AND HANDLING CHARGES 


j Ordering just one Success Manual Add $1.25 for S&H j 
Ordering from 2 to 5 Success Manuals Add 90¢ per 


® each manual } 
Ordering from 6 to 14 Success Manuals Add 50¢ per 
each manual i 
ENJOY BIG SAVINGS ON ORDERS FOR ALL 15 


SUCCESS MANUALS - We pay all Shipping & Handling i 
Cost. (a hefty savings of $7.50!). 

t Note: We pay shipping and handling on each Limited | 
Edition Manual your order qualifies for. 






‘ Check the box below which indicates each desired 
FREE Limited Edition Manuals’ Title(s) which your 

i OC ree ROR Teg 
RO CMO Ce ia Cl LCC) 


i bad credit rating into good 
How to raise all the cash you need 
i in a hurry 


How to retire young and live luxuriously on very 
i RC 


,™ METHOD OF PAYMENT (all prices are in U.S. funds): i 
— My check or money order is enclosed (do not send 

| currency through the mail). j 
Sorry - due to high percentage of sale charged by card 

companies - charge card orders not accepted. 3 
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#: 8534 SO/General/DDJ office 

05-Dec-86 17:31:07 
Sb: Screen Weirdness! 

Fm: Chris Johnston 

71505,1752 
To: All 
I know that this is going to sound 
crazy, but I was sitting at my desk at 
work, talking to a coworker who 
was running Microsoft Word ona 
6-MHz IBM PC/AT with a CGA. I was 
finishing my lunch, crunching on 
one of those big hard pretzels, when 
I noticed that every time I crunched 
the screen image moved! Nothing 
else did, just the image on the screen, 
which seemed to get smaller along 
the vertical axis, as if the tube lost 
power momentarily. This is not a 
real change in the image because 
you have to be crunching to see the 
effect, but everybody else who tried 
it saw the same thing. Our assump- 
tion is that the vibrations set up 
when you crunch are some multiple 
of the vertical frame rate, causing an 
apparent change in the screen. On 
some machines I can see the vertical 
retrace line when I try this. It doesn’t 
seem to happen on a TV set. 

Is anybody interested in trying 
this out and seeing if it is a universal 
phenomenon? We've been talking 
about trying to measure the ‘crunch 
frequencies’ with an accelerometer 
but haven't tried it yet. 

P.S. It works with hard cookies, 
too. 


“*There is a reply: 8538 


#: 8538 
Sb: Screen Weirdness! 
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Fm: Ray Duncan [DDJFORUM] 
76703,4265 
It’s not crazy. I’ve been noticing the 
same thing for about a year in my of- 
fice. The funny thing is, I never see it 
on my own screen, but I can easily 
see it on the screen of the guy who 
sits on the other side of the room. I 
always assumed it was ‘real ‘and 
wondered why he never said any- 
thing about it, and I never really 
could dream up a reason for it. 


** There is a reply: 8549 


#: 8549 

Sb: Screen Weirdness! 

Fm: Pete Becker 76347 ,3151 

I'd guess it’s physiological. Maybe 
the vibration from the crunch 
shakes the retina or something. Such 
an effect would be more pro- 
nounced on distant objects: because 
they produce a smaller image, an 
identical displacement is proportion- 
ately much larger. 


“* There is a reply: 8552 


#: 8552 
Sb: Screen Weirdness! 
Fm: Chris Johnston 

71505,1752 
That makes a lot of sense. We have 
an HP spectrum analyzer and one of 
those accelerometer-hammer thin- 
gies that you use for measuring the 
vibration frequencies of mechanical 
parts. You give the item a whack to 
excite it, and then it senses the vibra- 
tions that result. We have been 
thinking about trying the pretzel 
crunch test with the accelerometer 
pressed firmly against a cheekbone 
to see what happens. My bet is the 
resultant frequencies are some mul- 
tiple of the 60-Hz vertical frame rate. 


** There is a reply: 8554 


#: 8554 

Sb: Screen Weirdness! 

Fm: Pete Becker 76347 ,3151 

There probably aren’t any well-de- 
fined resultant frequencies—just a 
bunch of garbage, which, of course, 


consists of all frequencies. I suppose 
a true controlled experiment would 
consist of putting the accelerom- 
eter against your cheekbone and hit- 
ting your jaw with a hammer so you 
have reproducible conditions. Any 
volunteers? 


* There are replies: 8555, 
8603 


#: 8603 
Sb: Screen Weirdness! 
Fm: Chris Johnston 

71505,1752 
No, I think I will skip the ‘hit your 
jaw with a hammer part. Somebody 
at work did suggest putting strain 
gauges on the pretzel! I'll try to re- 
member to fire up the accelerom- 
eter/frequency analysis system and 
try out the less painful part of the 
test. I'll let you know! 


#: 8555 

Sb: Screen Weirdness! 

Fm: jhon stanley 73765,1026 

The wiggle is not psychological—it 
really exists. It is due to the vibration 
of the muscles of the eye, which try 
to correct themselves and therefore 
move the eye. It is so common that 
the brain automatically corrects for 
it. It can do a great job correcting 
those things that do not move but has 
trouble with moving things—like, for 
example, a band of light sweeping 
down the face of a CRT. The region 
of the CRT lit at any given time is 
small, maybe 142—1-inch tall. If your 
eye moves up while the band moves 
down, the screen will appear taller. 
Likewise, move the eye down and 
the picture gets smaller (somewhat 
like moving an original on the copy 
machine while the machine scans it). 
So, vibrate, and the picture wiggles. 

I have shown this to many people, 
and they are always amazed. They 
don’t believe it until they try it 
themselves. 


** There are replies: 8564, 
8604 
#: 8604 


Sb: Screen Weirdness! 
Fm: Chris Johnston 
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71505,1752 
As I understand it, the eye wiggles a 
little all the time because nerves that 
are continuously stimulated shut 
down afer a little while. The places 
where the receptors see light and 
dark alternate is near an edge. At a 
low level, we have an automatic edge 
discriminator built into the system. 


#: 8564 

Sb: Screen Weirdness! 

Fm: Pete Becker 76347 ,3151 

To: jhon stanley 73765,1026 

I said ‘physiological,’ not psychologi- 
cal! Your explanation sounds good. 


#: 8637 

Sb: Screen Weirdness! 

Fm: jhon stanley 73765,1026 

The same thing happens, I have no- 
ticed recently, with LED clocks. The 
digits are scanned, as in a CRT, so the 
numbers also wiggle when you 
chew. 


“ There is a reply: 8639 ed brrththt. I told him to try again. He 
did, and the look on his face told me 
he saw the effect. Ain’t science won- 


derful? 


#: 8639 

Sb: Screen Weirdness! 

Fm: Pete Becker 76347 ,3151 
Synchronisity! I was at my sister's 
this afternoon, and she called me 
into the kitchen and asked me to 
click my teeth together while look- 
ing at the clock on her microwave 
oven. Of course, I wouldn’t do any- 
thing so undignified, but I gave her 
your explanation. 


DDJ 


Vote for your favorite feature/article. 
Circle Reader Service No. 8. 


“* There is a reply: 8696 


#: 8696 

Sb: Screen Weirdness! 

Fm: jhon stanley 73765,1026 

I told a friend of mine at work to go 
brthththththphphphphtttt at the 19- 
inch monitor we use because it 
would do something neat. He gave 
me this funny look and a half-heart- 


FTL MODULA-2 $49.95 


The most programming power 
for your money 


Circle no. 244 on reader service card. 


Dr. Dobb’s Journal, March 1987 


SEND 
cK OR 
CAEN QRDER 
T0: 
man 
Work mates 


MasterCard and VISA welcome. 
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More BASIC Modules 

and Libraries 

One of the shortcomings of the early 
versions of microcomputer BASIC 
was the absence of formal libraries of 
reusable code. The lack of support 
for multiline functions, callable BASIC 
subroutines, and local variables 
weakened any attempts to “simu- 
late’ BASIC libraries. The implemen- 
tors of ‘“‘new wave’ BASICs, a phrase 
you will hear often, have recognized 
the need for supporting user-defined 
libraries. The solutions given by 
these new BASICs vary in the degree 
of flexibility and syntax, however. 
Let’s take a look. 

QuickBASIC lets you create libraries 
in two steps. First, you write the 
source code for a library and compile 
it into .OBJ form. The next step is to 
“build” an .EXE library file by using 
BUILDLIB.EXE, which is supplied with 
QuickBASIC. BUILDLIB.EXE is able to 
take one or more library object files 
and create a bigger library. To avoid 
confusion between libraries in .OBJ 
and .EXE files, you can rename the 
former as sublibraries. QuickBASIC 
permits your BASIC programs to use 
one library only. The default library 
is USERLIB.EXE, but you can instruct 
BUILDLIB.EXE to create libraries with 
other names. You must specify these 
library names when invoking Quick- 
BASIC from the DOS command line. 

The preceding discussion gives the 
impression that QuickBASIC supports 
one library at a time. The good news 
is that you can expand and update 
your .EXE library files by including 
new or modified sublibraries. To do 
this, you must store the .OBJ subli- 
brary files because you may rebuild a 
library periodically. 
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Example 1, below, shows a short 
subroutine that calculates the square 
root of a number using Newton's 
method. The library body has no for- 
mal declaration. Functions in Quick- 
BASIC libraries are local to the library, 
so I have used a callable subroutine 
instead. A client QuickBASIC program 
need not make any special declara- 
tions to use the library subroutines; 
the burden falls on the program au- 
thor to document external subroutine 
calls. The scheme of calling library 
subroutines in QuickBASIC offers a 
good degree of language extension. 

In True BASIC, library files begin 
with the keyword EXTERNAL. Unlike 
QuickBASIC, all the subroutines and 
functions are accessible to the client 
program. Local variables are not auto- 
matically shared with other library 
routines or client programs; data 
flows through argument lists and data 
files. Unlike QuickBASIC, True BASIC 
enables your application program to 
use multiple libraries. You use the 


SUB SQROOT(X,S) static 


IF X Y= 0 THEN 
= & / 2 





syntax LIBRARY <library names list> 
to indicate the files containing the 
sought libraries. Functions imported 
from libraries must be declared in DE- 
CLARE DEF <function names list> 
statements. This feature of True BASIC 
permits you to maintain libraries in a 
more independent way than you can 
in QuickBASIC. In addition, libraries 
can call other libraries in True BA- 
siC—a valuable feature for modular 
software development. 

Example 2, below, shows the 
square root function in a True BASIC 
library. The library/module loading 
feature enables you to do away with 
explicit LIBRARY and DECLARE DEF 
statements related to the loaded li- 
braries. In that respect, True BASIC 
also offers a vehicle for language 
extension. 

BetterBASIC supports modules, so 
much so that the implementation it- 
self is modular. A customizable con- 
figuration text file is used to list the 
modules that are loaded into memo- 


WHILE ABS(S * §& — X) ) ACCR 


S=(%*/8 +8) /2 
WEND — 


ELSE 


—1 ' result for a negative argument 


END IF | 
END SUB 


ing Newton's method 


Example 1: QuickBASIC library subroutine to compute the square root us- 





EXTERNAL ! declaration needed to define a True BASIC library 


DEF FNSORT(x) 


IF X )= 0 THEN 

LET Accr = 1.0E-8 

LETS =X/2 

DO WHILE ABS(S * S — X) ) ACCR 
LETS = (x/7S +58) /2 

LOOP 

LET FNSQRT = S 

ELSE 


LET FNSORT = —1! result for a negative argument 


END IF 


END DEF 





Example 2: True BASIC library function to compute the square root using 


Newton's methad. 
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NEW RELEASE —Version 2.01 
NOW Faster Than Ever! 


Ackerman Sieve 


Marshal Pascal $11.9 3.5K 





Microsott C 4.09 15.9 9.3K 
Oregon Pascal-2 [18.2 13.9K 





Actually, it only took him a couple of days with 
Marshal Pascal. Marshal Pascal produces code 
smaller and faster than any other High Order Lan- 
guage on the PC. Period. Even optimized C compil- 
ers don’t come near our performance. And Marshal 
Pascal allows you to generate an assembly lan- 
guage listing of your code, to boot. So it’s not sur- 
prising that some people would fudge the truth. 


However, soeed and compactness are not 
enough. Power and ease of use are important, too. 
With Marshal Pascal you may address as much 
memory as your operating system allows and a 
variety of memory models are supported. Among 
the useful extensions incuded are: separate com- 
pilation of modules (both Modula-2 and Pascal 
forms), structured constants and structured function 
values, variable-length string types, overlays, long 
integers and procedural parameters. Our relocat- 
able linker allows you access to the Microsoft family 
of languages and assemblers. The data-flow ana- 
lyzer in the compiler automatically crunches your 
code far better (and with less headaches) than one 
can achieve by manually utilizing register variables. 
We support the Intel 8087-80287 math processors 
inline. If you don’t have the math chip, then '87/287 
simulation is a provided option. We also provide a 
number of compile options, including an optimiza- 
tion by-pass for speedier compiles, I/O “tine- 
tuning,” and constant folds. A wealth of compile- 
time checks will helo reduce your debug time 
enormously. 


/O 
48 24K § 1.8 5.1K 
IBM Pascal $12.4 34.7K 911.7. 27K § 2.5 24.5K 
Turbo Pascal § 22.7 11.6K 14.2 11.5K J 2.2 12.5K 


5.8 65K § 1.9 8.9K 
7.2 \1.7K § 2.5 22K 
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Size Size Size 
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It that weren't enough, we also give you a Turbo 
Translator, allowing you to use the hundreds of ap- 
plication and utility programs written in Turbo 
Pascal® that are available in source trom the public 
domain. Marshal Pascal supports most of the same 
extensions that are in Turbo Pascal, including low 
level hooks and inline coding, providing the Turbo 
user with the easiest and most comprehensive “step 
up” possible. 


Space does not permit us to list all the features 
of Marshal Pascal, all of which are provided USER 
options, not additional COST options. Our compiler 
is not broken apart to make many products out of 
what should be only one good one. 


Only, please folks, no matter how tempting it 
may be, don’t fib to people once you start pro- 
gramming with Marshal Pascal! 


the Price? 
$189. 


Marshal Pascal 


Supports PC-DOS®, MS-DOS®, CP/M-86®, Concurrent Dos®* 
and soon Xenix 286/386®! 


Marshal Pascal is ao TM of Marshal Language Systems, CP/M-86 and Concurrent Dos are R of Digital 
Research, Inc., PC-DOS is a R of IBM Corp., Turbo Pascal is a R of Borland International, Inc., MS-DOS 
and Xenix 286/386 are R of Microsoft Corp. Pascal-2 is a TM of Oregon Software. 


To order your copy of Marshal Pascal call: (800) 826-2222 


In California: (415) 947-1000 





Marshal Language Systems 


1136 Saranap Ave., Ste. P, POB 2010, Walnut Creek, CA 94595 
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C Programs 
in Half the Time, 
with Instant-C™ 


Yo can create programs much faster 
with Instant-C than with convention- 
al programming tools. How? Because 
Instant-C is a high-performance inter- 
preter, there are no compile or link 
delays. Change your program, then 
test it immediately. No matter how 
large your program, the turnaround 
time is just seconds. 





“Instant-C means instant gratification." —PC 
Magazine, Editor’s Choice for best 
Cinterpreter 





Powerful source-level debugging 
saves your time. Conditional break- 
points, single-stepping by statement, 
source code backtraces, data moni- 
toring, and many other debugging 
features make it easy to wipe out bugs 
quickly. Direct execution of any state- 
ment or function makes testing a 
breeze. 

“The resulting debugging and testing capa- 
bilities are fantastic and the detailed trace/de- 


bug/display commands make it easy. — The 
C Journal 


Instant-C checks pointer references 
for reasonableness, and checks that 
array indexes are within declared 
bounds. This run-time checking 
stops your program as soon as errors 
occur, for easiest debugging. 

Not only does Instant-C help you 
quickly change, test, check and debug 
your code, but it runs your program 
fast enough for real-time appli- 
cations. 





“Tt is much faster than any of the other pro- 
ducts mentioned and was the only one able to 
complete the standard SIEVE in a reasonable 
time. Clearly, this high speed allows much 
more complex problems to be attacked with 
Instant-C than with any of the other products 
discussed.” — Computer Language 





Immediate feedback and precise 
diagnostics make Instant-C great for 
learning C. Full K&R and the ability to 
link compiled object code and li- 
braries (Lattice and Microsoft) makes 
Instant-C compatible with your existing 
programs. 

Instant-C makes all parts of the 
programming task as fast as possible. 





“Clearly. Instant-C is the performance 
champion.’ —PC Tech Journal — 


Version 2 works with MS-DOS and 
PC-DOS, and has a full 31 day money 
back guarantee. Instant-C is only 
$495. Order today! Call or write for 
full information. 

PO. Box 480 


Rational Natick, MA 01760 
Systems, Inc. (617) 653-6194 
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THE STATE OF BASIC 


(continued from page 138) 


ry to provide your BASIC applications 
with additional routines. Some of the 
libraries are used to make Better BA- 
SIC compatible with BASICA. 

To create a module in BetterBASIC, 
you create a new workspace in 
which you define local and exported 
routines as well as module initializa- 
tion. You use a PUBLIC declaration as 
an export list; any routine not listed is 
strictly local. Creating a module in 
BetterBASIC is an interactive process. 
It involves a MAKE MODULE <name> 
command in which BetterBASIC re- 
quests you to verify your PUBLIC dec- 
laration and MAIN code (used to ini- 
tialize the module). An affirmative 
answer puts your module in memo- 
ry and makes its functions accessible 
as an extension of the language. In- 
formation is passed to module rou- 
tines via argument lists, data files, or 
the use of pointers. 

Example 3, below, shows a module 
that exports the BetterBASIC version of 
my square root function. Notice that 
BetterBASIC requires line numbers in 
some portions of the code. The decla- 
rations of variables are similar to 
those of Pascal (more about this in a 
future column). BetterBASIC uses a re- 
served identifier RESULT instead of 
the function name to return the result 
of a function. Also notice that the 
function arguments are not listed im- 
mediately after the function name 
but on the line that follows the func- 
tion name declaration. 

The implementation of libraries in 
the new wave BASICs, among other 
new features, offers an enhanced 
level of software engineering. The 


PUBLIC: SQROOT 


REAL FUNCTION: SQROOT 
REAL ARG: X | 
REAL: S,Accr 

10 Accr = 1. OE-8 
20S =xX/2 


30 WHILE ABS(S * § — X) ) Accr DO 


HOS — (%/5 +48) / 2 
50 REPEAT 
60 RESULT = § 

END FUNCTION 


presence of software libraries ac- 
knowledges the following: 


¢ the need for reliable software build- 
ing blocks 

¢ the shortening of development time 
by reusing existing routines 

support for structured and more 
systematic program development 


oe 


Vote for your favorite feature/article. 
Circle Reader Service No. 9. 


Vendors 
BetterBASIC 
Summit Software 
106 Access Rd. 
Norwood, MA 02062 
(617) 769-7966 
$199 
Reader Service Number 50 


QUICKBASIC 
Microsoft Corp. 
16011 . 
N.E. 36th Way 


Redmond, WA 98052 

(206) 882-8088 © 

$99 

Reader Service Number 51 


True BASIC 

True BASIC Inc. 

39 S. Main St. 

Hanover, HN 03755 

(603) 643-3882 

(call for prices) 

Reader Service Number 52 





Example 3: BetterBASIC library function to compute the square root us- 


ing Newton's method 
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AVAILABLE NOW! 


The The 
Ss \& stem DS @ Console 
ernel @ Display 


OF THE TELE OPERATING SYSTEM TOOLKIT 












Tele is a multitasking operating system written in C and assembly language for 
IBM PC compatibles. SK: The System Kernel of the Tele Operating System, 
including the most crucial part of Tele—the task scheduling algorithm first pub- 
lished in Dr. Dobb’s December 1986 issue, and DS: The Console Display are 
now available. 


SK: The System Kernel is required by DS: The Console Display, and by the 
soon-to-be released File and Index systems of the Tele Operating System Toolkit. 
When all components of the Toolkit are integrated they form an independent ‘Tele Operating Syston 
operating system for any 8086-based machine. Tele has also been designed for > 
cqmpatibility with MS-DOS, Unix and the MOSI standard. 
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SK: The System Kernel contains an initialization module, general purpose utility 
functions, and a real time task management system. SK: The System Kernel 
provides MS-DOS applications with multitasking capabilities. Only $49.95! 

SK: The System Kernel 

Item #090 $49.95 





DS: The Console Display contains BIOS level drivers for a memory-mapped 

display, window management support and communication coordination between 
/ NS | operator and tasks in a multitasking environment. Only $39.95! 

The Console ~~ DS: The Console Display 

Display (te x Item #091 $39.95 


Both SK and DS include 
all C and assembler 
source code as well as 
the precompiled libraries! 
MS-DOS disk format. 


oO - ee = | 2 © ee r i Item # Description Price 


To Order: Return this order form with your payment to M&T Books, 
501 Galveston Dr., Redwood City, CA 94063 

Or, Call TOLL-FREE 800-533-4372 Mon-Fri 8AM-5PM 

In CA call 800-356-2002 














Name 

Address 

Nee a eee alaeaieebebianat ep 

C2 Check enclosed. Make payable to M&T Publishing. Subtotal 

Charge my 1) VISA CJ M/C LI Amer. Exp. CA residents add sales tax % 
Card No. a a a entries Add $2.25 per item for shipping 
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PROGRAMMER’S SERVICES 


OF INTEREST 





Languages 

Pecan Software Systems’ imple- 
mentation of UCSD Pascal for the Ap- 
ple IIGS is source-compatible with Ap- 
ple Pascal. Extensions beyond Apple 
Pascal are offered in areas of multi- 
tasking, dynamic memory manage- 
ment, extended-precision arithmetic, 
and separate compilation. The soft- 
ware is ProDOS compatible and uti- 
lizes the new features of the Apple 
IGS, including extended memory, 
sound, and graphics. The Power Sys- 
tem Professional Pak is available for 
$199.95. Reader Service No. 16. 

Pecan Software Systems Inc. 

1410 39th St. 

Brooklyn, NY 11218 

(718) 851-3100 


Hard Disks/Utilities 

Storage Dimensions has introduced 
the AT160F, a 320-megabyte, high- 
performance, internal, dual hard- 
disk drive for IBM PC/ATs and com- 
patibles. The AT160F reduces access 
time, breaks the 32-megabyte DOS 
barrier, and surpasses ROM BIOS max- 
imum storage restrictions. It is fully 
compatible with the IBM PC/AT and 
its standard Western Digital control- 
ler card. Price for the AT160F ranges 
from $5,995 to $9,995, depending on 
storage capacity, number of drives, 
and the inclusion of controller. Read- 
er Service No. 17. 

Storage Dimensions 

14127 Capri Dr. 

Los Gatos, CA 95030 

(408) 370-3304 


The Storage Products Division of Fu- 
jitsu America has announced a high- 
performance, 54-inch, optical disk 
drive with a 600-megabyte formatted 
capacity. The M2505A WORM (write 
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once, read many) drive utilizes a two- 
laser head design for fast throughput 
and interlink tracking to improve 
data reliability. The drive has a posi- 
tioning time of 100 milliseconds, a ro- 
tational speed of 1,800 RPM, a transfer 
rate of 124K per second, and utilizes 
the Enhanced Storage Device Inter- 
face. The M2505A with M1080A con- 
troller is priced at $3,500, and media 
for the 51-inch drive is priced at 
$100. Reader Service No. 18. 

Fujitsu America 

3055 Orchard Dr. 

San Jose, CA 95134 

(408) 946-8777 


Design Software has released 
DSBACKUP+ and DSRECOVER, hard- 
disk backup and protection utilities 
for the IBM PC, PC/AT, PC/XT, and com- 
patibles. DSBACKUP+’s features in- 
clude five-minute backup of a 10-me- 
gabyte hard disk, verification of data 
while backing up or restoring, data 
compression for up to 40 percent 
more data on each disk or cartridge, 
multiple volumes to allow backup 
and restore from more than one 
drive at a time, and the ability to back 
up only those files that have been 
changed since the last backup. DSRE- 
COVER’s features include undeletes in 
one step, views of all deleted files, 
and the ability to reconstruct original 
formatting when a hard disk is refor- 
matted. DSBACKUP+ is priced at 
$79.95, and DSRECOVER is priced at 
$49.95. Reader Service No. 19. 

Design Software 

1275 W. Roosevelt Rd. 

West Chicago, IL 60185 

(800) 231-3088 

In IL, HI, AK (312) 231-4540 


SunDog Software Corp. has an- 
nounced Squish, a 40K resident file- 
compression program that com- 
presses files on both hard and floppy 
disks. When the files are used, expan- 
sion of data takes place spontaneous- 
ly in memory rather than on disk, 
and no advance planning is needed 
to use the files. All programs that use 
standard DOS functions for reading 
and writing can use ‘‘squished”’ files. 
Squish is also compatible with other 
resident programs. The program is 
available for IBM PCs, PC/XTs, PC/ATs, 


and compatibles using DOS 2.0 and 
costs $79. Reader Service No. 20. 
SunDog Software Corp. 

264 Court St. 

Brooklyn, NY 11231 

(718) 855-9141 


Fail-Safe from CSSL is a fault-tolerant 
system that allows IBM PCs and com- 
patibles to continue operating even 
after catastrophic hard-disk failures. 
It is the first level of a multitiered sys- 
tem that comes in three configura- 
tions. The other configurations are 
DFT (Disk Fault Tolerant), a software 
and half-card version, and DFT II, a 
hardware-only version built around 
firmware and a controller card. Each 
configuration contains solutions to 
the most common problems found in 
personal computer system failures. 
Fail-Safe requires DOS 2.0 or later and 
24K RAM. The single-unit PC version 
is available for $395. DFT, which is 
configured for a network linking up 
to 15 PCs, is available for $595. Reader 
Service No. 21. 

CSSL Inc. 

909 Electric Ave. 

Seal Beach, CA 90740 

(213) 493-2471 


Rabbit Industries has introduced 
the MagicDrive, a quick and power- 
ful hard-disk drive for Macintosh 
computers that have at least 512K 
RAM. It is available in 20-, 30-, 65-, and 
235-megabyte versions and includes 
such features as automatic error de- 
tection and correction, daisy-chain- 
ing, automatic head parking, print 
spooling, password security, and 
backup utilities. Prices range from 
$699 to $3,399, depending on the ver- 
sion. Reader Service No. 22. 

Rabbit Industries 

4505 Spicewood Springs Rd., Ste. 304 
Austin, TX 78759 

(512) 343-0781 


Tools 

Flash-Up Windows from The Sofit- 
ware Bottling Company is a memo- 
ry-resident utility for creating, con- 
trolling, and managing menus and 
help windows for DOS, BASIC, Pascal, 
C, COBOL, FORTRAN, dBASE, and most 
other software. It lets programs con- 
trol windows, allows you to define 
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#1 Lint for MS-DOS 


Personalize 
your computing 


environment. 


The MKS Toolkit now contains 
the Korn shell command interpreter. 


The MKS version of Bell Labs’ Korn shell has this and more: 
e the full power of the UNIX System V.2. © command aliases 


Bourne shell ¢ interactive command-line facilities 
e the most requested features of © previous command history and editing 
Berkeley's C shell e a powerful programming language 
e the full-UNIX utility of executable shell ¢ shell variable expansion 
files e arithmetic evaluation 
All this has been fine-tuned to create the optimum environment under DOS. The 
Korn shell is just one of over 100 commands — fully compatible with UNIX System V.2 
— now contained in the MKS Toolkit, including the following: 
awk cat chmod cmp cp cpio ctags cut 
dd df diff du echo ed egrep ex 
file find head help join Ic Is 
nm od paste pg prof rm sed 
split strings tail time touch tr 
and much, much more... 
These programs run from the shell or command.com under DOS on machines such 
as the IBM PC, XT, and AT, the AT&T 6300, and most PC compatibles. Full documen- 


date 
fgrep 
more mv 
size sort 
uniq vi wc 


tation is included. Phone support is available 9-6 EST. Not copy protected. 


Everything for only $139. 


Mortice Kern Systems Inc. 
43 Bridgeport Road East, Waterloo, Ontario, Canada N2J 2J4 


For information or ordering call collect: 


(519) 884-2251 


Prices quoted in U.S. funds. MasterCard and VISA orders accepted. OEM and dealer inquiries 
invited. UNIX is a trademark of Bell Labs. MS-DOS is a trademark of Microsoft Corp. 
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SOFTOPIA 87 TOKYO 


Leading-Edge Software Technology Exhibition 


Period : Tuesday, April 
Japan’s Best Software Show : 


7-Friday April 10, 1987 


SOFTOPIA TOKYO is the most Aggressive and international minded software 


show in Japan and has been annually. 
technology on a world-wide level since 


introducing the most advanced software 
1984, which is sponsored by MITI. the 


American Embassy and the China Association For Science And Technology. In 
addition, SOFTOPIA TOKYO assists foreign companies who are planning to 


enter into Japanese market. 
Furthermore, “Al Forum ’87” will be held 


simultaneously. 


Through Softopia Tokyo, we are sure you will find plenty of business opportunies 


in Japan. 


Mi Major software products 
displayed 
Al, CAI, CMI, DBMS, UNIX, 


banking, general purpose software 
products, CAD/CAM/CAE, etc. 


li Late Foreign exhibitors : 

IBM, AT&T, Applied Data Research, 
Analytic Science Technology, Compu 
ware, Stone-house Technology, Allied 
Electronic Services, Tribune Cable 
Communications of California, Local 
Area Telecommunications, Infotel, 
China Computer Society, etc. 


INVITATION TO SOFTOPIA ’87 
TOKYO 

@ Period : Tuesday, April 7-Friday, April 
10, 1987 

@ Place : Tokyo Trade center(Main Buil- 
ding) 

i For Further Information : 


Softopia International Trade Fair Associ- 
ation Secretariat in U.S.A. Cavalier Sys- 
tems Incorp. 

3711 Long Beach Blvd, Suite 709, 

Long Beach, California 90712 

Phone : 213-492-1157 
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The professional : 2 
diagnostic facility forC @' 


‘@ PC-lint lets you zap swarms of C 
Wm bugs and glitches at a time. 
< Now you can uncover the quirks, 
inconsistencies, and subtle errors 
that infest your C programs .. . 
waiting to bite you. PC-lint finds 
them all... or as many as you 
want ... in one pass. Set PC-lint 
to match your own style. 


Outperforms any lint at any price 


= Full K&R support and 
common ANSI enhancements 
(even MS keywords) 

= Finds inconsistencies 
(especially in function calls 
across multiple modules!) 

= Modifiable library descriptions 
for 8 popular compilers 

= Super fast,one-pass operation | 

= Suppress any error message 

# Zillions of options 


PRICE $139 - MC « VISA + COD 


~ Includes USA shipping and handling. { 
'@ Outside USA, add $15. In PA add 6%. 


@ ORDER TODAY, a 
30-day guarantee 


+ Runs under MS-DOS 2.0 and up, and ! : 
B, AmigaDOS. Uses all available memory. i 


/ 
deay | 

: Fil Trademarks: PC-lint (Gimpel Software), ' 
cf ¢ MS, MS-DOS (Microsoft), Amiga (Commodore) } 
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TEXT 
WINDOW 1 


VEDIT PLUS is an advanced editor that 
makes your program development and 
word processing as efficient and 

easy as possible. VEDIT PLUS is 
simple enough to learn and use for 
the novice, Met has the speed, 


LINE 6 © @ | Ee 


flexibility and power to satisfy the 


most demanding computer professional. 
VEDIT PLUS is particularly suited for 
writing all types of programs and 
lengthy documents such as reports or 
manuscripts. 


This shows how VEDIT PLUS can perform 
windowing. One window is used for 

word processing, a second for program 
development, and the third for 
commands. 


FILE: 


VEDPLUS.TXT iS a a 


bidlist ( infile ) 
FILE *infile: 
] 
| 
register |; 
struct node “ptr; 


for (1:0; i(termlim; i++) { 
ptr = malloc ( NODESIZE ); 
hme) 
head = tail = ptr; 
1 RY omt 
tail -)next=ptr; 
lie eda 


TTT = NULL; 
load _str( &(tail-) header), 


cei d0 aa cldeal lian | 


if 








CHOICE IN 


WINDOW $ 


VPLUSPC .COM 
LIGHT .COM 
VEDIT INI 
LIGHT -HLP 


INSTALL .EXE LIHARD 
LONG 
KEYS 


PRINT 


.BAT T 
-NUM_ DISK 
BM THES 
-EXC INSTALL 


.BAT 


INI 


VEDIT PLUS has been the #1 choice of professionals 
since 1980. Our latest release is even better - you can 
open windows to simultaneously edit several files, ac- 
cess many editing functions with pop-up menus, use 
keystroke macros to speed editing, and run other pro- 
grams or DOS commands from within VEDIT PLUS. 


Whether your needs are program development, tech- 
nical writing or word processing, VEDIT PLUS is your 
answer. With over 40,000 users you can depend on 
VEDIT PLUS to perform consistently and reliably. It is 
simple enough to learn for the novice, yet has the 
speed, flexibility and power to satisfy the most de- 
manding professional. 


Compare. No other editor is as powerful - unlimited 
keystroke macros, instant ‘off-the-cuff command mac- 
ros utilizing a complete programming language, sin- 
gle command file comparison, special word process- 
ing and programming features. No other editor is as 
easy to use - on-line help, pop-up menus, 75 page 
tutorial, 380 page manual, and VEDIT PLUS is com- 
pletely customizable. 


Fully supports color windows on IBM CGA & EGA, and 
even windows on most CRT terminals (including CRT's 
connected to an IBM PC). Available for IBM PC, TI 
Professional, Tandy 2000, DEC Rainbow, Wang PC, 
MS-DOS, CP/M-86 and CP/M-80. Order direct or from 
your dealer. $185 


“To sum things up, VEDIT PLUS is a small, fast, 
sophisticated editor with a wealth of features and a 
good macro language. It offers many rewards for the 
dedicated programmer.” 

Computer Language, Chris Wolf, Scott 

Lewis, Mark Gayman 6/86 


“VEDIT PLUS is a wholly remarkable program: 


blindingly fast, extremely powerful, and highly flex- 
ible.” 


Profiles Magazine, Robert Lavenda 4/86 


VEDIT and CompuView are registered trademarks of CompuView Products, Inc. MS- 


DOS is a registered trademark of Microsoft. CP/M is a registered trademark of Digital 
Research. WordStar is a registered trademark of MicroPro. 


Circle no. 122 on reader service card. 





PROGRAMMABLE 
EDITORS 
















































VEDIT PLUS FEATURES 





e Simultaneously edit up to 37 files of unlimited size. 

e Split the screen into variable sized windows. 

e ‘Virtual’ disk buffering simplifies editing of large files. 

e Memory management supports up to 640K. 

e Execute DOS commands or other programs. 

e MS-DOS pathname and CP/M user number support. 

e Horizontal scrolling - edit long lines. 

e Flexible ‘cut and paste’ with 36 text registers. 

e Customization - determine your own keyboard layout, create 
your own editing functions, support any screen size, any CRT. 

e Optimized for IBM PC/XT/AT. Also 132 column & up to 70 lines. 


EASY TO USE 


e Interactive on-line help is user changeable and expandable. 
e On-line integer calculator (also algebraic expressions). 

e Single key search and global or selective replace. 

e Pop-up menus for easy access to many editing functions. 

e Keystroke macros speed editing, ‘hot keys’ for menu functions. 


FOR PROGRAMMERS 


e Automatic Indent/Undent for ‘C’, PL/I or PASCAL. 

e Match/check nested parentheses, i.e. ‘{’ and ‘}’ for ‘C’. 

e Automatic conversion to upper case for assembly language 
labels, opcodes, operands with comments unchanged. 

e Optional 8080 to 8086 source code translator. 


FOR WRITERS 


e Word Wrap and paragraph formatting at adjustable margins. 
e Right margin justification. 

e Support foreign, graphic and special characters. 

e Convert WordStar and mainframe files. 

e Print any portion of file; separate printer margins. 


MACRO PROGRAMMING LANGUAGE 


e ‘lf-then-else’, looping, testing, branching, user prompts key- 
board input, 17 bit algebraic expressions, variables. 

e CRT emulation within windows, Forms entry. 

e Simplifies complex text processing, formatting, conversions 
and translations. 

e Complete TECO capability. 

e Free macros: e Full screen file compare/merge e Sort mailing 

lists ¢ Print Formatter e Main menu 


CompuView 


1955 Pauline Blvd., Ann Arbor, MI 48103 (313) 996-1299, TELEX 701821 











FOR IMMEDIATE RELEASE 
For information contact: 
= Nantucket. 


Nantucket Corporation 

12555 Jefferson Blvd. 
Los Angeles, C 0066 
(213) 390-7923 
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S, California. Nantuckets Clipper now lets develop 
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Announcing Magic PC — the first breakthrough for database applications developers in over 20 years: 


Now you can develop professional applications 
1000 % faster than your 4GL or DBMS, totally 
free from programming, commands and syntax! 


AKER Corp. MAGIC 


13.Order Entry Screen 
Execution Definition 


Description 


A Magic PC program looks as simple as this. To design an application you quickly fill-in menu-driven decision 
tables without having to write a single line of code. For example, just by highlighting the Execute Program 
operation on this screen and also highlighting the Item List program in the Program Menu, you tell Magic 
PC to pop-up the Item List window shown in the adjacent screen, when the end-user hits the Zoom key. 


Task SSA TESTT Beco | ae 





12/03/86 


Operations 
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User Exit 


Order No: 999 
Order Date: 99/99/99 


Stock Status 


In Stock: -999,999 
Total Orders: 
——) Avail to Sell: 





Order Entry 


Customer No: 99999 
Address: 


Se Description Quantity Unit Price Total Price 


“999°, 999,999.99 | 999,999.99 | a Ae ee sie Be 


Order Sum 
99.99% Discount 


-999,999.99 
-999,999.99 

Sub-Total -999 ,999 .99 
99.99% Sales Tax -999,999.99 
-999,999 === 


Magic PC gives your end-user the power to harness and retrieve data instantly, without any commands or 
syntax because at runtime you already have built-in options to Add, Delete, Modify, Query and get on-the- 
spot ad-hoc information simply by highlighting selections from menus. Dats validation, security and 
error-checking are done automatically for you by Magic PC without programming. 





Who needs another DBMS? 

At last, Magic PC gives you the ultimate applications 
design tool, far ahead of 4GL’s, DBMS and Applica- 
tion Generators. 

Magic PC breaks through the language barrier with 
the revolutionary Un-Language concept: 

NO PROGRAMMING, COMMANDS OR 
SYNTAX! 


Free yourself from your programming language 

Magic PC makes you, the professional, completely 
free from the drudgery of procedural programming. No 
more cryptic commands, syntax or unforgiving 
procedural structures, because Magic PC does all the 
programming automatically. There’s your competitive 
edge. The rest is up to you. . 


The Professional Choice 

Already an international success, Magic PC is a profit 
maker and career booster for DP Consultants, System 
Integrators, VARs, MIS professionals, System Analysts, 
Programmer Analysts and Software Engineers. If you 
design PC applications professionally, you can’t afford 
not to Un-Language now. 


IBM France: “IBM encourages this introduction and 
can not help but salute such evolution. . ” 


Israeli Air Force: “We were convinced that it was not 
possible to have a design tool powerful enough to im- 
plement real-life applications without a programming 
language. Magic PC changed our mind. . ” 


Jeff Duntemann, PC Tech Journal: “It’s probably 
the best integrated database applications and screen 
generator that I have ever seen. . .very smooth system, 
and smoothness comes at a premium these days. . ”” 


The Magic PC Secret 

You’re so much more productive with Magic PC 
because there is absolutely no programming to slow 
you down. You design a Magic PC application by simp- 
ly filling-in the Data Dictionary Tables (Files, Fields, 
Keys) and the Task Description Tables (Operations and 
Expressions). 

Only 13 design Operations harness the power of 
Magic PC. Operations are specific enough to eliminate 
the need for tiresome syntax, yet elastic enough to pro- 
duce robust custom applications. Use the Operations 
to describe what you want and Magic PC makes it 
happen. It’s that simple. 


Make Task nesting power available with a single 
Execute Task Operation. This powerful instruction 
triggers Magic PC to execute and display additional 
tasks or even external applications through Window 
Zooms. The 3-dimensional effect of Window Zoom- 
ing lets you probe deep into your application through 
nested windows and manipulate the data underneath. 

You describe a Magic PC Task or Program (com- 
posite Tasks) by filling your system analysis flow into 
the Task Description Tables. Choose the participating 
Data View, and Magic PC executes your desired Opera- 
tions. You interface with the Tables by highlighting your 
selections from pop-up menu-driven windows. There's 
nothing to edit except your headings. 

You're not confined to any particular design sequence 
as you are with most procedural languages. You can 
enter and change any Table spontaneously, on the fly, 
as ideas come to mind and Magic PC automatically 
maintains the application integrity. 

A Magic Inference Engine automatically or- 
chestrates your Task Description Tables into a single 
file of internal Knowledge Base Rules for optimum, 
bug-free performance. Knowledge Base Rules are ex- 
ecuted by the Magic Run engine for stand-alone run- 
time operation, or by the Magic Lan engine for 
unrestricted Novell network sharing. You're free to 
design the Knowledge Base without worrying about the 
internal structure. 


Discover fast, 
language-free 
programming 
at no risk 

for only 
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See for yourself how fast you can program language- 
free applications with our low-cost limited offer. 

You'll get the full Magic PC software unprotected and 
limited to 100 records and 450 page documentation 
complete with a free Order Entry sample application. 
You'll also get our free telephone support for 90 days! 

And your $19.95 will be credited towards the full $695 
Magic PC purchase price. Even if you don’t buy Magic 
PC right away, keep your $19.95 Magic PC Trial as your 
application prototyping tool at this bargain price. 


Our No-Risk Guarantee! 


You have our no-risk 30-day money-back guarantee: 
if you’re not completely satisfied for any reason, even 
Magic PC Trial for $19.95, send it back for a refund. 


Order now while supply lasts 


Call this toll free number now with your Visa, 
MasterCard or American Express for immediate 
delivery, or send the Order Coupon below today to Aker. 


1-800-345-MAGIC 
in CA call 714- -250-1718 








Yes, please rush me: 





L) Magic PC Trial $ 19.95 
L] Magic PC $695.00 
Add shipping $ 5.00 
In CA 6% tax Se 
Prices valid in US only. Total $ 
Ship to: 
Address: 
City/ST/Zip: 
Phone: 





AKER 


Aker Corp. 18007 Skypark Circle B2, Irvine, CA 92714 
(714) 250-1718, Elec. Mail Dialcom 41: AKR 001 Telex 4931184 


AKR UI OEM and VAR inquiries are welcome. 


Min. requirements PC DOS 2.0. IBM PC or 100% compatible with 512K and hard disk. 


©1986 Aker Corp. Printed 1/87 Trademarks: Magic PC, Un-Language. Window Zoom, 
Magic Run. Magic LAN and Magic PC Trial are trademarks of Aker Corp.. IBM PC 
and PC-DOS are trademarks of IBM Corp., Novell is a trademark of Novell Inc. 


It is easy to learn and use, like a panel 
generator, because it allows you to draw your 
text, fields, and colors on the video display. 
But we can’t call it a panel generator, 
because it supports full windowing and 
scrolling, and because screen and field 
information may be stored in your program 
files (EXE) rather than separate data files. 


It is flexible and powerful, like a library- 
oriented programmer’s toolkit, but you are not 
restricted to "visualizing" your data-entry 
windows as you type page after page of code 
to set up borders, fields, text and 
highlighting. Our innovative approach 
(called static windowing) eliminates the need 
for replication of static data in dynamic 
memory. 


It produces tight code, like a YACC (Yet 
Another Compiler Compiler), but you don’t 
have to tolerate a myriad of small program 
modules that need to be compiled and 
maintained. Instead, our "screen designer’ 
creates Microsoft object files which you 
simply link with your applications. 


Add to this new, superior design philosophy 
the fact that it has more features, produces 
tighter code, and yields higher performance 
than any of the above. Throw in a clear, 
concise user manual, a thorough on-disk 
tutorial, and some example programs. Top it 
off with a utility program that documents 
each screen and another that allows you to 
prototype (or simulate) your application 
before you write a single line of code. Now, 
what would you call it? 


Let’s settle on a single word. 
Let’s call it the "best." 


But don’t take our word for it. Order your 
demo disk today. You will receive a copy of 
the screen generator, the tutorial, and some 
documentation on the utility programs and 
library routines. Then make the decision 
yourself. 


Or take advantage of our one-time 
introductory offer and get $100 discount if 
you order before March 31, 1987. 


Call (713) 665-4109 for more information. 
Major credit cards accepted. 


dow, graphics characters, pai 
field, many cursor movement options, 
monitor switching, operating system calls, 
help. Set validation mode, highlight current 
field, scrolling by line or page, input mask, 
tabs, initial values. More. Up to 400 lines per 
screen. 


FIELD DEFINITION: 
Left-justify/right-justify/center, uppercase 
translation, built-in character validation, 
byte/integer/word/long/float/ 
double/string/date field validation, retain 
data, auto-erase, protected fields, input 
required, use commas, use zeros/spaces, 
margin bell. User-defined character 
validations, pattern-matching validations, 
picture validations, and field types. More. Up 
to 9999 fields per screen. 


LIBRARY ROUTINES: 

Open, close, move, display, and refresh 
windows. Allow user to edit data fields in 
window, or to view and manipulate a window 
but not change data stored in it. Pull-down 
and pop-up menus. Read screen object file 
from disk. Intercept keyboard filter. 
Override default key actions. Automatic and 
manual refresh. Switch display device, erase 
all data fields on window, plot data onto 
fields or entire screens, retrieve data from 
fields or entire screens, screen image dump, 
retrieve and modify screen and field 
attributes, locate field, force use of bios. 
Direct interfacing with some bios interrupts, 
including cursor and mouse control. More. 
Mnemonic and simple to use. 


REQUIREMENTS: 

IBM PC/XT/AT/JR or true compatible, DOS 
2.0 or later, at least 128K free RAM, and the 
Microsoft C, Pascal, or Fortran compiler or 


the IBM C compiler. Support is available for 
other C Compilers and the XENIX operating 
system. Call for specifics. 


IBM, IBM PC, IBM XT, and IBM AT are 
trademarks of International Business Machines. 
Microsoft and XENIX are trademarks of 
Microsoft Corporation. 
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For More Information 


(713) 665-4109 
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Screen Designer 


Let’s Do Windows! 

a @ O Pascal O FORTRAN 
O Please send __ copics @ $345.00 
Introductory discount -100.00 
Your price : 245.00 
O DataWindows with Library 

Source Code $695.00 
Introductory discount -100.00 
Your price 595.00 


Hurry! Introductory offer expires March 31, 1987. 


Show Me More! 
O Send me a Demo $10.00 


| 

| 

| 

| 

| 

In Texas add 6.125% sales tax 
Outside U'S. add 15.00 i 
Total enclosed Bc etee el ae al ale | 
| 

| 

| 

| 

| 

| 
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Enclosed is 


O Check O Money Order 
O Visa O MasterCard 
Number 





Expiration Date 





Name 
Company 
Address 
City 

State 














Zip Code 








Send to: 


MAGUS, INC. 
4545 Bissonet Suite #114 
Bellaire, TX 77401 
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PC/vr 


UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI— aCOMPLETE 
implementation of UNIX”* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 


e Global search or search and replace using regular expressions 
e Full undo capability 

e Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

Editing of files larger than available memory 

Shell escapes to DOS 

Copying and moving text 

Macros and Word abbreviations 

Auto-indent and Showmatch 

MUCH, MUCH MORE! 


Don’t take it from us. Here’s what some of our customers 
say: “Just what I was looking for!’; “It’s great!) “Just like the real 
VI!": “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS+ systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS’ 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX a the user not dozens, but 
hundreds of tools. These tools were designed and have been 
continually enhanced over the last fifteen years! Now the most 
powerful and popular of these are available for your PC! Each isa 
complete implementation of the UNIX program. Open up our 
toolbox and find: 


e BANNER e DIFF e HEAD e SED e STRINGS 
e BFS e DIFFH e OD e SEE e TAIL 

e CAL e DIFFS e PASTE e SORT e WC 

e CUT e GREP e PR 


All of these for only $49.00; naturally, extensive documentation 


is included! 
PC/SPELL 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 
and last spelling checker you will ever need! 

aaa 

Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
$1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 


Available in 8% 514” and 34%” disk formats. For more information 
call today! 


*UNIX is a trademark of AT&T. *+MS-DOS is a trademark of Microsoft. 


CUSTOM SOFTWARE SYSTEMS 
P.O. BOX 678 * NATICK, MA 01760 
617 © 653 © 2555 
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windows, assigns windows to keys, 
and acts as a window macro en- 
hancer by letting you send com- 
mands to running programs. Flash- 
Up Windows sells for $90. Reader 
Service No. 23. 

The Software Bottling Company 
6600 Long Island Expwy. 

Maspeth, NY 11378 

(718) 458-3700 


A general-purpose set of develop- 
ment tools and C function libraries 
called Real-Tools is available from 
Pioneering Controls Technolo- 
gies. Real-Tools comprises a screen- 
management system, windowing Ca- 
pabilities, user-defined graphics, and 
assorted utilities and library func- 
tions. It is priced at $99 for binary, 
$299 for library source, and $399 for 
complete source. Reader Service No. 
24. 

Pioneering Controls Technologies Inc. 
510 Bering Dr., Ste. 300 

Houston, TX 77057 

(713) 266-8649 


Csharp PC Drivers Package is a li- 


brary of C language support routines 
for data acquisition and control hard- 
ware on the IBM PC, PC/AT, and com- 
patibles from Systems Guild. It in- 
cludes support for the Metrabyte 
Dash8 and Dash16 analog I/O boards, 
the Data Translation DT2801 and 
DT2808 analog I/O output boards, and 
the IBM PC DMA controller. Csharp PC 
Drivers Package can be used with the 
following C compilers: Microsoft 3.0 
and 4.0, Lattice 2.15 and 3.10, and C86 
from Computer Innovations. A spe- 
cial version of the product is avail- 
able for use with Rational Systems’ 
Instant-C incremental compiler. A 
source license for the Csharp PC Driv- 
ers Package costs $195. Reader Ser- 
vice No. 25. 

Systems Guild 

P.O. Box 1085 

Kendall Square Station 

Cambridge, MA 02142 

(617) 451-8479 


O88 is an optimizer compatible with 
the C Ware Corp.’s DeSmet C88 com- 
piler. The product, introduced by 
Key Software Products, can run 
stand-alone or installed as an auto- 
matic part of the compilation pro- 
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cess. In minimal 8088 mode, 088 typi- 
cally eliminates 4—13 percent of the 
instructions and simplifies 7—12 per- 
cent of those that remain. IBM PC/AT 
or compatible users can use 80188 
mode to eliminate another 5—9 per- 
cent of the instructions. Programs 
that make heavy use of an 8087 or 
80287 floating-point chip can use 8087 
mode to achieve significant perform- 
ance improvements. 088 is available 
for $49. Reader Service No. 26. 

Key Software Products 

440 Ninth Ave. 

Menlo Park, CA 94025 

(415) 364-9847 


Six new programming toolkits for 
use with Kyan Pascal are available 
from Kyan Software. The toolkits 
save programmers time and help 
them add state-of-the-art graphics 
and other features to their Kyan Pas- 
cal programs. The toolkits run on Ap- 
ple IIs with Kyan Pascal and are 
priced from $29.95 to $149.95. Reader 


Two great reasons to buy Turbo Pascal: 
System Builder *99° and Report Builder °75° 





Service No. 27. 

Kyan Software 

1850 Union St., #183 

San Francisco, CA 94123 
(415) 626-2080 


Greenleaf Software has released 
DataWindows, a windows and data 
entry library for C language pro- 
grammers. DataWindows’ features 
include overlaid windows with 
screen management, transaction-ori- 
ented data entry, and more than 135 
functions. Portions of the program's 
object code can be used in other pro- 
grams without royalty obligations. 
DataWindows sells for $225, and the 
source code is available for an addi- 
tional $225. Reader Service No. 28. 
Greenleaf Software 

1411 LeMay Dr., Ste. 101 

Carrollton, TX 75007 

(214) 631-0811 


Cytek has released three new pack- 
ages to enhance its Multi-C multitask- 


ing library. Multi-Comm is a full-fea- 
tured communications library that 
supports high-speed, interrupt-driv- 
en data transfers, multiple device 
types in asynchronous or synchro- 
nous mode, and background commu- 
nications by Multi-C tasks. Multi-Win- 
dows is a window development 
package for creating pop-up win- 
dows. Multi-Forms works with Multi- 
Windows to produce data entry and 
display screens. Source code is sup- 
plied for all hardware-dependent 
functions, allowing them to be used 
with any compiler-supported com- 
puter, including MS-DOS and ROM- 
based systems. Multi-Comm and 
Multi-Forms are priced at $149 each, 
and Multi-Windows sells for $295. 
Reader Service No. 29. 

Cytek Inc. 

805 Turnpike St., Unit 202 

North Andover, MA 01845 

(617) 687-8086 


The C 386 Compiler and RLL 386 Relo- 









From the Designer Series by Royal American Technologies. !-------------------- 







State-Of-The-Art Program Gener- 
ators that automatically build a 


Royal American Technologies 
201 Sansome, Suite 202 
San Francisco, CA 94104 


Relational Database system with- (800) 654-7766 
out coding. Entry level ‘‘coders’”’ in California (800) 851-2555 
can produce Database systems Ask for Operator 102 


without coding. Developers 
have more flexibility and horse- 
power than any development 
tool on the market. 





Self-documenting program includes 
screen schematics. System Builder 








Please rush me: ___ copies of SYSTEM 
BUILDER at $99.95 per copy; —_ copies 
of REPORT BUILDER at $75.00 per copy. 
I've enclosed $5.00 for postage and handling. 
California residents add 6% sales tax. 


will generate 2,000 lines of program Name 
code in approximately 6 seconds. fem 
SYSTEM BUILDER FEATURES: = 

e Automatically generates Indented, Structured, Copy Book Source Code faces to a maximum of 16 Datafiles created with System Builder ¢ Supports City 


ready for compiling with Turbo Pascal (no programming needed) 

¢ Paint Application and Menu screens using Keyboard ¢ Screens all use 
In-Line machine code for exceptional speed ¢ 16 Datafiles and 16 Index 
Keys per application © Paint functions include: —Center, copy, move, 
delete, insert or restore a line with one keystroke —Cut and paste blocks 
of text screen to screen — Draw and erase boxes —Access special graphic 


Global Parameters such as Headings, Footers, Lines Per Page, Print Size 
and Ad Hoc Sorting © Page breaks on Sub-Totals ¢ Reports can also in- 
clude Text Strings, Variables or Computed expressions containing refer- 
ences from up to 16 Datafiles © Use range input screens allow End Users 
to select portions of a report as needed (i.e. specific account ranges can be 
requested) ® Easy-to-use Interface Program included to access dBase Files 


Payment: ()Check (Money Order CL Cashiers 





characters and character fill —Go straight from screen to screen — Define 
colors and intensities * Support an unlimited number of memory variables 
¢ File Recovery Program ® automatically modify existing datafiles 

e Experienced developers can modify the System Builder * Develop sys- 


Check [L)AMEX CIVISA CLJMASTERCARD 


Expiration date 


tems for Floppy or Hard Disk * Modify System Builder’s output source Card Number 
code to include External Procedures, Functions and Inline Code © Easy- 
to-use Interface Program included to access ASCII and Dbase Files Signature 


30-Day Money-Back Guarantee. Not copy- 
protected. $10 restocking fee if envelope is opened. 
System Requirements: IBM PC/XT/AT', or similar, with 
minimum 256K RAM, dual floppy drives, or hard disk, 
color or monochrome monitor, MS? or PC DOS! version 
2.0 or later, Turbo Pascal Version 2.0 or later (Normal, 


REPORT BUILDER FEATURES: 


¢ Automatically generates Indented, Structured Source Code ready for 
compiling Turbo Pascal (no programming needed) * Automatically inter- 
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BCD or 8087 versions). 


'Trademark of International Business Machines Corp. 
-Trademark of Microsoft Corp. 

'“Turbo Pascal is a registered trademark of Borland International. 
“dBASE is a registered trademark of Ashton-Tate. 





VARS, System Integrators and Dealers, let’s 
work together. Head office: (415)397-7500 
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cation, Linkage and Library Tools 
package from Intel Corp. are de- 
signed to help speed development of 
both embedded and on-target 80386 
application software. Both packages 
support all the 80386’s features, capa- 
bilities, and operating modes. The 
compiler produces object code that is 
compatible with Intel’s other 80386 
languages. The RLL 386 tools package 
allows programmers to design pro- 
tected multiuser and multitasking 
operating systems. The C 386 Compil- 


er and RLL 386 package sell for $900 
and $600, respectively. Reader Ser- 
vice No. 30. 

Intel Corp. 

Literature Dept. W338 

3065 Bowers Ave. 

Santa Clara, CA 95051 

(408) 987-8080 


Graphics 

Microfield Graphics has introduced 
T8, a single-board graphics system 
for the IBM PC/AT, RT/PC, and desktop 


WIZARO Systems 









“the best 
compiler 
today’’ 


Dr. Dobb’s 
Aug. 86 
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17645 Via Sereno 
Monte Sereno, CA 95030 
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computers based on the Intel 80386. 
Based on a dual-processor architec- 
ture with 64-bit internal memory in- 
terface, the T8 is designed to meet the 
graphics requirements of high-end 
CAD/CAM, CAE, and mapping applica- 
tions. Prices vary according to config- 
uration. Reader Service No. 31. 
Microfield Graphics Inc. 

8285 S.W. Nimbus Ave., Ste. 161 
Beaverton, OR 97005 

(503) 626-9393 


NSI Logic has introduced a half-size, 
enhanced graphics adapter called 
SMART (Single Monitor Adapter Tech- 
nology) EGA. The adapter is compati- 
ble with any IBM PC software and op- 
erates in all the popular display 
modes on any standard EGA color 
monitor. It costs $549. Reader Service 
No. 32. 

NSI Logic Inc. 

Cedar Hill Business Park 

257-B Cedar Hill Rd. 

Marlboro, MA 01752 

(617) 460-0717 


Editor 

UniPress Software has released a 
Unix-oriented text editor called vi- 
PLUS that has some features not 
found in standard vi, such as multiple 
windows, an interactive interface to 
Unix, and extensibility through mac- 
ros. It is available for many computer 
systems running Unix, Xenix, Ultrix, 
and other Unix derivatives. The PC 
version sells for $645. Reader Service 
No 33. 

UniPress has also released C-macs, a 
program editor for C programmers 
that is built on top of the company’s 
Emacs editor. C-macs checks and bal- 
ances parentheses and braces and 
permits programmers to define an in- 
denting style. The editor can run 
make while an edit session is under- 
way and maintains “tags” of all sys- 
tem components. The PC version of C- 
macs costs $645. Reader Service No 34. 
UniPress Software Inc. 

2025 Lincoln Hwy. 
Edison, NJ 08817 
(201) 985-8000 
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Announcing 


An Nroff-like 
Text Formatter 
for MS-DOS 





N is an expanded version of the text 
T fimattes described in Dr. Dobb's 
February through April 1987 issues. Nr is writ- 
ten in C and is compatible with the Unix Nroff. 
You'll find complete implementation of the -ms 
macro package, and an in-depth description of 
how -ms works. 


Nr does hyphenation and simple proportional 
spacing. It supports automatic Table of Contents 
and Index generation, automatic footnotes and 
endnotes, italics, boldface, overstriking, under- 
striking, and left and right margin adjustment. 
Nr also contains: 


© extensive macro & string capability 

© number registers in various formats including 
roman numerals and arabic, spelled out and 
in outline form 

e diversions and diversion traps 

© input and output line traps 


Nr comes configured for any Diablo-compatible 
printer, and Hewlett Packard’s ThinkJet and 
LaserJet. It is easily configurable for most other 


printers and comes with full source code so that 
you can make it work with your system. For 
PC compatibles. 


Item #165 


$29.95 


TO ORDER: Return this order form with your payment 
to: M&T Books, 501 Galveston Dr., Redwood City, CA 
94063. Or, call TOLL-FREE 800-533-4372 Mon-Fri 
8AM-5PM (In CA call 800-356-2002) 


YES! Please send me copies 
of Nr at $ each 
Subtotal 
CA residents add sales tax % 
Add $2.25 per item for shipping 
TOTAL 
Name 
Address 
City 
EN tens IP 


L] Check enclosed. Make payable to M&T Publishing. 
Please Charge my CL) VISA LJ M/C CL) Amer. Exp. 


Card No. 
Exp. Date 


Signature 





FORUM 


SWAINE'S FLAMES 


computer system that encapsu- 

lates the knowledge of experts 
(including heuristic decision process- 
es) for retrieval by the inexpert but 
naturally intelligent is called an ex- 
pert system. There are many expert 
systems in existence throughout the 
world today. When a British health 
association recently recommended 
that each health district in Great Brit- 
ain avail itself of a (presumably hu- 
man) expert on AIDS, it discovered 
that there were fewer AIDS experts 
than health districts in Britain. Enter 
the AIDS expert system. 

At Warwick University in Great 
Britain, a team of computer scientists 
under the direction of Dr. Roger Brit- 
tain is scanning more than 100 arti- 
cles a month on AIDS, building a 
knowledge base that will help doc- 
tors counsel AIDS patients and serve 
as a research and diagnostic tool. The 
project builds on a prototype system 
for rabies patients and is expected to 
cost some £20,000 and result in a 
piece of software that can run on a 
mainframe or microcomputer. 

Despite some recent press grum- 
blings about expert systems technolo- 
gy not being the miracle the same 
press had made it out to be, expert 
systems are useful tools in just such 
situations as AIDS diagnosis—in fact, 
many of the fundamental expert sys- 
tems techniques were developed in a 
medical diagnostic framework called 
MYCIN. (We have received and expect 
to publish next month a MYCIN-like 
expert system.) The Warwick project 
sounds practical and may actually 
make a contribution to putting the 
brakes on the AIDS epidemic. That’s 
great, and because I try to maintain a 
positive mental attitude in this col- 
umn, I won't suggest that the three 
major American television networks 
are making a counterbalancing con- 
tribution to the spread of the disease 
with their refusal to carry condom 
advertising. 
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I learned about the AIDS expert sys- 
tem in a news item in the Christmas 
1986 issue of a British weekly called 
New Scientist. This periodical is 
worth the time of any scientifically 
curious and naturally intelligent per- 
son on either side of the Atlantic. 
Erstwhile DDJ resident intern Dave 
Cortesi and I have shared a deep 
fondness for New Scientist for years 
(something like our fondness for Jon 
Bentley's Programming Pearls col- 
umn in JEEE Software and our respect 
for at least the intentions of the best 
science fiction, this last being what 
Dave is currently writing). New Scien- 
tist’s snipes at the British government 
are often (to me) funny and its humor 
is largely (to me) incomprehensible, 
but everything else is gold. There is 
more to think about in six weeks of 
New Scientist than in twelve months 
of Scientific American. 

A videophone system for the deaf 
that handles the bandwidth problem 
by abstracting essential expressive 
and gestural cues into an animated 
cartoon of the caller is something I’ve 
followed off and on for years; the lat- 
est word on this University of Essex 
project appeared in the October 23 is- 
sue of New Scientist. The November 
27 issue talked about progress toward 
standardization on a Unix applica- 
tion interface, which could be the 
biggest boost for Unix since Bell Labs 
gave it to the universities. The De- 
cember 18 issue had brief items on 
Texas Instruments’ trenching tech- 
nology for 3-D 4-megabit memory 
chips and on European research into 
sixth generation computers (see also 


“Sixth Generation Computers” by 
Richard Grigonis in the May 1984 
DDJ). It’s a good magazine. 


January brought one of the most 
enjoyable of the computer trade 
shows: Macworld Expo. The atmo- 
sphere this year was particularly 
charged, and there were products 
and announcements significant 
enough to support the electricity. 

Steve Jasik showed off his debug- 
ger MacNosy Part Two: The Debug- 
ger. His slogan: Beyond Discipline 
and Into Bondage. The Interface 
Builder from Expertelligence looked 
interesting: it lets you put a Mac inter- 
face on LISP programs. The Develop- 
ers’ Toolkit panel, with moderator 
Scott Knaster (manager of the Devel- 
oper Technical Support Group at Ap- 
ple), MicroPhone author Dennis 
Brothers, Jim Friedlander of Apple, 
and David Intersimoni of Borland, 
talked encouragingly about MacApp 
and APDA, the Apple Programmer’s 
and Developer’s Association. 


One East Coast writer out for the 
Expo was sometime Rolling Stone 
writer Steven Levy, who some think 
was the model for the John Travolta 
character in the less-than-perfect 
movie Perfect. Levy definitely was 
one of the founders of the Lunch 
Bunch, a group of technology writers 
who ate hamburgers together on two 
coasts. The Lunch Bunch has served 
up at least one book and has now 
spun off a dinner group gourmandiz- 
ing in Silicon Valley under the label 
Nerd’s Night Out. January’s menu 
called for a discussion of Apple’s new 
machines, but the most knowledge- 
able sources decided that they 
couldn't talk about that and canceled. 
How Apple has changed. 


WiclaD Seralg 


Michael Swaine 
editor-in-chief 
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Separate Compilation 
w/inter-module typechecking 
Native Code Generation 

Large Memory Model Support 
Most Powerful Runtime Debugger 
Comprehensive Module Library 
Maintainability — 

_ @ Translator from Turbo od 

- ANSI Pascal 


WIN A FREE TRIP TO 


Switzerland 


















HOMELAND OF MODULA-2 
Return your Modula-2 Registration Card or 
a reasonable facsimile* postmarked between 
March 1, 1987 and May 31, 1987 to be included 
in a once-only drawing! 

Grand Prize: One week excursion for 2 in 
Zurich, Switzerland including a guided tour of 
ETH, the University where Modula-2 was 
created by Niklaus Wirth. European custom- 
ers may substitute a trip to Silicon Valley, 
California. 

Second and Third Prizes: LOGITECH C7 
Mouse or LOGITECH Bus Mouse with Paint 
& Draw software —a $219 value, absolutely 


free! 
*Write to Logitech, Inc. for a registration card 
facsimile. 





APPRENTICE PACKAGE $99 
Everything you need to begin producing reliable 
maintainable Modula-2 code. Includes the Compiler _ 
with 8087 support, integrated Editor, Linker, and 
BCD Module. We're also including FREE our Turbo 
Pascal to Modula-2 Translator! 


WIZARDS’ PACKAGE 

This package contains our Plus Compiler—for 
professional programmers or for those who just want 
the best. The Plus Compiler with Integrated Editor 
requires 512K and takes advantage of the larger 
memory to increase compilation speed by 50%. Our 
Turbo Pascal to Modula-2 Translator is also includ- 
ed at no extra charge. 


MAGIC TOOLKIT $99 

We've put our most powerful development tools 
into one amazing Toolkit for use with either the 
Apprentice or Wizards packages. Highlighted by our 
Runtime Debugger, the finest debugging tool avail- 
able anywhere, the loolkit also includes our Post 
Mortem Debugger, Disassembler, Cross Reference 
utility and Version which keeps track of different 
versions of one program. Our MAKE Utility figures 
out module dependencies and automatically selects 
those affected by code changes to minimize recom- 
pilation and relinking. We also provide source code 
of our major library modules for you to customize — 
or just play with. 


WINDOW PACKAGE $49 


Now you can build true windowing into your 
Modula-2 code. Features virtual screens, color sup- 
port, overlapping windows and a variety of borders. 


ROM PACKAGE AND CROSS 
RUN TIME DEBUGGER $299 


For those who want to produce rommable code. 
You can even debug code running in ROM from 
your PC. 


Turbo Pascal is a registered trademark of Borland International. 


Circle no. 257 on reader service card. 


$199 





Call for information about our 
VAX/VMS version, Site License, University 
Discounts, Dealer & Distributor pricing. 


To place an order call 
toll-free: 


800-231-7717 
In California: _ 


YES! I want the spellbinding power 
e of LOGITECH Modula-2! 


L) Apprentice Package $99 
LJ Wizards’ Package $199 
LI Magic Toolkit $99 
LJ Window Package $49 
LJ ROM Pkg/Cross RTD $299 


Add $6.50 for shipping and handling. Calif. residents 
add applicable sales tax. Prices valid in U.S. only. 


Total Enclosed $ 
XO) VISA UO MasterCard LJ Check Enclosed 


Card Number Expiration Date 
Signature 

Name 

Address 

City State 


Phone 


B LOGITECH 


LOGITECH, Inc. 
805 Veterans Blvd. Redwood City, CA 94063 
Tel: 415-365-9852 
In Europe: 
LOGITECH SA, Switzerland 
Tel: 41-21-879656 e Telex 458 217 Tech Ch 


In Italy: 
Tel: 39-2-215-5622 
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urbo C: The 

fastest, most 
efficient and easy- 
to-use C compiler at | 
any price oe 


Compilation speed is more than 
7000 lines a minute, which makes 
anything less than Turbo C an 
exercise in slow motion. Expect 
what only Borland delivers: Quality, 
Speed, Power and Price. 


Turbo C: a complete 
interactive development 
. environment 


Like Turbo 
Pascal® and 





Turbo C comes 
with an interactive editor that will 
show you syntax errors right in your 
source code. Developing, debug- 
ging, and running a Turbo C 
program Is a snap. 


Turbo C: The C compiler 
everybody’s been 
waiting for. Everybody 
but the competition 


Borland’s “Quality, Speed, Power 
and Price” commitment isn’t idle 
corporate chatter. The $99.95 price 
tag on Turbo C isn't a “typo,” it’s 
real. So if you'd like to learn C ina 
hurry, pick up the phone. If you're 
already using C, switch to Turbo C 
and see the difference for yourself. 


Turbo C: The C compiler 
for amateurs and 
professionals 

If you're just beginning and 
you've “kinda wanted to learn C,” 
now’s your chance to do it the easy 
way. Like Turbo Pascal, Turbo C’s 
got everything to get you going. 

If you're already programming 
in C, switching to Turbo C will 
considerably increase your produc- 
tivity and help make your programs 
both smaller and faster. Actually, 
writing in Turbo C is a highly 
productive and effective method— 
and we speak from experience. 
Eureka: The Solver™ and our new 
generation of software have been 
developed using Turbo C. 


System requirements 


IBM PC, XT, AT or true compatibles. PC-DOS (MS-DOS) 
2.0 or later. One floppy drive. 320K. 





*Introductory price—good through July 1, 1987 


Sieve benchmark (25 iterations) 
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Object code size 


Benchmark run on a 6 Mhz IBM AT using Turbo C version 1.0 and the 
Turbo Linker version 1.0; Microsoft C version 4.0 and the MS overlay linker 
version 3.51; Lattice C version 3.1 and the MS object linker version 3.05. 


— 
— 
eal 
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BORLAND 


INTERNATIONAL 


Vive la eyjoronce 


For the dealer nearest you or to order by phone call 


(800)255-8008 


in CA (800) 742-1133 in Canada (800) 237-1136 


4585 SCOTTS VALLEY DRIVE 
SCOTTS VALLEY, CA 95066 
(408) 438-8400 TELEX: 172373 


Circle no. 161 on reader service card. 


Turbo C 








Technical Specifications 
(~{ Compiler: One-pass compiler 
generating linkable object modules 
and inline assembler. Included is 
Borland’s high performance “Turbo 
Linker.” The object module is com- 
patible with the PC-DOS linker. Sup- 
ports tiny, small, compact, medium, 
large, and huge memory model 
libraries. Can mix models with near 
and far pointers. Includes floating 
point emulator (utilizes 8087/80287 
if installed). 


[™ Interactive Editor: The system 
includes a powertul, interactive full- 
screen text editor. If the compiler 
detects an error, the editor auto- 
matically positions the cursor 
appropriately in the source code. 


[™{ Development Environment: A 
powerful “Make” is included so 
that managing Turbo C program 
development is highly efficient. 
Also includes pull-down menus 
and windows. 


({_ Links with relocatable object 
modules created using Borland’s 
Turbo Prolog into a single program. 

[ANSI C compatible. 


(4 Start-up routine source code 
included. 


(4 Both command line and integrated 
environment versions included. 































Turbo C and Turbo Pascal are registered trademarks and Turbo Prolog 
and Eureka: The Solver are trademarks of Borland International, Inc. 
Microsoft C and MS-DOS are registered trademarks of Microsoft Corp. 
IBM, XT, and AT are registered trademarks of International Business 


Machines Corp. Copyright 1987 Borland International Bl-1104 
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